@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