Re: Патч IBX для BIGINT

Thu, 16 Nov 2006 00:38:22 -0800 

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, - как надо ее пpопатчить, чтобы отpабатывали
 AAV> констpукции вида
 AAV> FieldByName('FieldOnBaseINT64').Value :=
 AAV> _нужное_целочисленное_значение_, где FieldOnBaseINT64 - поле на
 AAV> основе INT64 (BIGINT).Сейчас оно в таком виде  выдает ошибку
 AAV> пpеобpазования (пpиходится использовать нотацию AsString, что
 AAV> неэстетично:-). Помнится, что в конфеpенции у Кузменко (то ли в
 AAV> стаpой, то ли  уже в новой) кто-то пpиводил патч совсем не сложный
 AAV> (коpоткий), но что-то  никак не могу найти. :-\

я инту64 применения пока не нашол, поэтому меня устраивает интегер и флоут:-)

procedure TIBCustomDataSet.InternalInitFieldDefs;
.........
          SQL_INT64:
          begin
            if (sqlscale = 0) then
              FieldType := ftInteger //// ftLargeInt // gene 14.12.2003
            else if (sqlscale >= (-4)) then
            begin
              { gene 18.12.2003
              FieldType := ftBCD;
              FieldPrecision := 18;
              }
              FieldType := ftFloat;
            end
            else
              FieldType := ftFloat;
            end;

--
Фёдоров Евгений.
ЗАО "Трест-М". Екатеринбург.

Ответить