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.