Problem z właściwością RecordCount

0

Cześć.
Sytuacja wygląda tak.
Mam TIBQuery nazwane Query. Pobrał sobie jakieś dane. Teraz chcę wykorzystać właściwość recordCount do pokazania paska postępu, ponieważ przeprowadzam różne operacje na każdym pobranym rekordzie.
Kawałek kodu:

progress:=0;
RecNo:=0;
query.First;
while not query.Eof do
 begin
   RecNo:=RecNo+1;
   progress:=Round((RecNo/query.RecordCount)*100);
   showProgress('Import tabeli: '+trim(tables[i]), progress);
   //inny kod - związany z insertami - nic w Query się nie zmienia   
   query.Next;
 end; 

Kwestia jest taka, że RecordCount nie ma tego, co mieć powinien. Na początku ma wartość 1, która zwiększa się przy kolejnych iteracjach o 1.
O co chodzi?

0

helpa oczywiście Twoje Delphi nie posiada...

Indicates the number of records currently fetched by the dataset.

Delphi syntax:

property RecordCount: Integer;

Description

Examine RecordCount to determine the number of records that the dataset has currently retrieved from the server. As the dataset fetches records from the server, the value of RecordCount increases.

After a call to the FetchAll method, RecordCount is the total number of records in the dataset.

1 użytkowników online, w tym zalogowanych: 0, gości: 1