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?