Скачать: CL | DM;

Что это, проблемы с памятью???   Найти похожие ветки 

← →
Не умею ничего   (2007-01-13 15:41) [0]

объясните мне:

function Fetch(var Data: _XSDATA;
              const Query: String): Integer;
var iSQL: TIbSQL;
   iTrn: TIbTransaction;
   Temp: Array[0..65535] of TIBXSQLDA;
   I: Integer;
begin
 Result := 0;
 try
   if PrepareSQL(iSQL, iTrn, Query) then begin
     iSQL.GoToFirstRecordOnExecute := True;
     iSQL.ExecQuery;
     while not iSQL.Eof do begin
       Temp[Result] := iSQL.Current;
       iSQL.Next;
       Inc(Result);
     end;
   end
 finally
   FinalizeSQL(iSQL, iTrn, False, True);
   SetLength(Data, Result);
   for I := 0 to Result-1 do begin
     showmessage(Temp[I].ByName("USERNAME").AsString);
     Data[I].DATA := Temp[I];
   end;
 end;
 if (Result<>0) then Dec(Result);
 
end;

почему если читать Temp[Result] в while not iSQL.Eof, то всё ок, а если в for I  то все результаты одинаковые???

---

← →
ors_archangel ©   (2007-01-13 21:52) [1]

Проверь описание TIBXSQLDA. Наверно, после FinalizeSQL всё результаты очищаются.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.879 c