Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: In Textdatei suchen und Zeile einfügen
18. Jan 2006, 19:59
Hallo Martin,
wolltest du nicht nach dem gefundenen Wort einen Zeilenumbruch einfügen? Wenn du den Text mit Memo.LoadFromFile() einliest und in Edit.Text das Literal einträgst, hinter dem umgebrochen werden soll, dann funktioniert das hier ganz gut:
Memo.Text := StringReplace(Memo.Text, Edit.Text, Edit.Text + sLineBreak, [rfReplaceAll]);
Dein eigener Code braucht keinen Zeilenindex, wenn du nach dem Laden der Datei in das Memo eh wieder mit der Textdatei arbeiten willst. ReadLn wird besser durch Eof terminiert und Write verschiebt den Positionszeiger für den nächsten Eingabe- bzw. Ausgabe-Befehl. Da musst du schon eine getrennte Ausgabedatei verwenden.
Grüße vom marabu
|