Fortschritt Datei einlesen

[p80286]

@Ruio

Das Suchen und Ersetzen erfolgt erst wenn alles in einen String eingelesen ist.

Ansonsten läßt du den Index Deines Puffers bis Puffer[maxPuff-(wortlaenge-1)] laufen, schiebst die restlichen Chars nach vorne und liest dann wieder ein. Dafür sollte der Puffer aber schon recht groß sein, sonst beschäftigt Dein Programm sich nur mit Datenschieben.

@Sir Thornberry

Das hätte ich gerne mal als Source gesehen, denn irgendwie muß der Ergebnisstring doch zusammengestückelt werden.
Mein Vorschlag:

Delphi-Quellcode:

 MyFile : text;

 { einen ordentlichen Buffer mit settextbuf nicht vergessen!}
....
repeat
  readln(MyFile,Satz);
  ergSatz:=Ergsatz+Satz;
  progressbar.step;
until eof(Myfile);
....

sollte zwar funktionieren, aber ist bestimmt keine Performancespitze.

Gruß
K-H