Progressbar um Loadfromfile fortschritt anzuzeigen.

[Nelphin]

Zitat von 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;

Für diese Lösung müsste ich aber vorher wissen wieviele Zeilen da ankommen, oder?

Egal, ich habe vorhin gemerkt, das das eigentliche Laden schnell genug geht, (liege da bei unter 5 sekunden) es sind zwei dahintergeschaltete verarbeitende proceduren,welche die Zeit in Anspruch nehmen, das werde ich also anders lösen und meine progressbar abhängig von diesen Durchläufen steuern, das bekomme ich hin.