Guten Morgen,
wenn Du es so löst, dann brauchst Du die Datei
nur einmal lesen.
Delphi-Quellcode:
Begin
OpenDialog1.Execute;
FileName1 := OpenDialog1.Filename;
f:=FileSize(Filename1);
AssignFile(myFile,Filename1);
Reset(myFile);
progressbar1.position := 0;
ProgressBar1.max:=f;
listbox1.items.BeginUpdate;
while not Eof(myFile) do
begin
ReadLn(myFile, sRecord);
listbox1.items.add(sRecord);
progressbar1.position:=progressbar1.position+length(sRecord)+2;
end;
listbox1.items.EndUpdate;
CloseFile(myFile);
[edit] noch zum sRecord 2 hinzugezählt, wegen CR und LF
Grüße
Klaus