Re: Патч IBX для BIGINT

[Dmitry Voroshin]

"Oleg LOA" <[EMAIL PROTECTED]> сообщил/сообщила в новостях
следующее: news:[EMAIL PROTECTED]
> "Dmitry Voroshin" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> >
> > Если речь идёт про Delphi 7 то эта конструкция работает после установки
> > Update1. Тут не в IBX дело, а в TLargeIntField.
>
> Интресно ЧТО МОЖНО НАКОСЯЧИТЬ В ЭТОМ КОДЕ?

А вот что:

ДО:

procedure TLargeintField.SetVarValue(const Value: Variant);
begin
  raise AccessError('Variant');
end;

ПОСЛЕ:

procedure TLargeintField.SetVarValue(const Value: Variant);
begin
  SetAsLargeInt(Value);
end;