ProgressBar bei LoadFromFile in TListBox

[Klaus01]

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