Gdzie jest problem w procedurze. Poniższa kod działa prawidłowo na Windows Xp, kopiuje bazę do pliku (ponad 40 tys. rekordów). Natomiast gdy to robie na komputerze z Win 98 kopiuje tylko część bazy (zawsze tą samą). Może ktoś coś wie na ten temat?
procedure TfrmMain.Button7Click(Sender: TObject);
var
S : string;
i : integer;
begin
Memo.Lines.Clear;
tblPodstawa.First;
for i:=0 to tblPodstawa.RecordCount - 1 do
begin
S := tblPodstawa.FieldByName('Nazwa').AsString + ';';
S := S + tblPodstawa.FieldByName('Pole1').AsString + ';';
S := S + tblPodstawa.FieldByName('Pole2').AsString + ';';
S := S + tblPodstawa.FieldByName('Pole3').AsString + ';';
S := S + tblPodstawa.FieldByName('Pole4').AsString + ';';
S := S + tblPodstawa.FieldByName('Pole5').AsString + ';';
Memo.Lines.Add(S);
tblPodstawa.Next;
end;
Memo.Lines.SaveToFile('Podstawa.csv');
MessageBox(Handle,'Kopia bazy zakończona.','INFORMACJA!', 0)
end;