Progressbar um Loadfromfile fortschritt anzuzeigen.

[Andreas L.]

Eine andere Möglichkeit wäre die Datei zeileweise ein zu lesen mit AssignFile, ReadLn, etc.

Delphi-Quellcode:

var
  Txtdatei: Textfile;
  Zeile: String;
begin
  AssignFile(Txtdatei, 'Hallo.txt');
  Reset(Txtdatei);
  Readln(Txtdatei, Zeile);
  //Progressbar erhöhen
  CloseFile(Txtdatei);
end;