Hello, Alexander A. Venikov!
You wrote to All on Thu, 16 Nov 2006 10:11:19 +0500:
AAV Hello, All!
AAV В ФИДОшной эхе Vlad Filippov спрашивает:
AAV
AAV -
AAV Пpивет, All!
AAV Вопpс к знатокам
Вот мой вариант (вообще а не для IBX)
if (Data^.sqlscale = 0) and (Data^.sqlsubtype = 0) then
FieldDef.DataType := ftLargeint
else
if (Data^.sqlscale = -4) then
begin
FieldDef.DataType := ftBCD;
Dmitry Voroshin parix3-JGs/[EMAIL PROTECTED] wrote in message news:[EMAIL
PROTECTED]
Если речь идёт про Delphi 7 то эта конструкция работает после установки
Update1. Тут не в IBX дело, а в TLargeIntField.
Интресно ЧТО МОЖНО НАКОСЯЧИТЬ В ЭТОМ КОДЕ?
{ TLargeintField }
constructor
Oleg LOA [EMAIL PROTECTED] сообщил/сообщила в новостях
следующее: news:[EMAIL PROTECTED]
Dmitry Voroshin [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Если речь идёт про Delphi 7 то эта конструкция работает после установки
Update1. Тут не в IBX дело, а в TLargeIntField.
Dmitry Voroshin parix3-JGs/[EMAIL PROTECTED] wrote in message news:[EMAIL
PROTECTED]
procedure TLargeintField.SetVarValue(const Value: Variant);
begin
raise AccessError('Variant');
end;
ПОСЛЕ:
procedure TLargeintField.SetVarValue(const Value: Variant);
begin
SetAsLargeInt(Value);
Oleg LOA [EMAIL PROTECTED] сообщил/сообщила в новостях
следующее: news:[EMAIL PROTECTED]
И какое ЭТО имеет отношение к IBX и текущей проблеме? Ну добавли
поддерджку в Variant типа совместиморго с LargeInt
А автор спрашивал: почему у меня не работает такое:
FieldByName('FieldOnBaseINT64').Value
Dmitry Voroshin parix3-JGs/[EMAIL PROTECTED] wrote in message
news:ejjo79$u47 А автор спрашивал: почему у меня не работает такое:
FieldByName('FieldOnBaseINT64').Value := _нужное_целочисленное_значение_,
Так ясен пень почему не работает. Вот по этому и не работает.
А ну звиняйте. Если автор
Hello, All!
В ФИДОшной эхе Vlad Filippov спрашивает:
-
Пpивет, All!
Вопpс к знатокам IBX, - как надо ее пpопатчить, чтобы отpабатывали
констpукции вида
FieldByName('FieldOnBaseINT64').Value :=
8 matches
Mail list logo