Falls die Datei zu groß sein sollte, könnte man es auch ungefähr so machen:
Delphi-Quellcode:
var
infile,
outfile : textfile;
dataline : string;
repeat
...
readln(infile,dataline);
if dataline=Bedingung then begin
{..irgendwelche Vorarbeiten ..}
writeln(outfile,newline);
{..irgendwelche Vorarbeiten ..}
end;
writeln(outfile,dataline)
..
until eof(infile);
und zum Schluß infile löschen und outfile umbenennen.
natürlich SetTextbuf verwenden (32-64k)!
Gruß
K-H
edit:
Delphi-Quellcode:
var
sl : tStringlist;
begin
sl:=tstringlist.create;
sl.LoadfromFile(MeineTextdatei);
for i:=0 to sl.count-1 do
if copy(sl[i],1,...)=Meinebedingung then begin
.....
sl.insert(Anposition);
.....
end;
sl.SavetoFile(MeineTextdatei);
sl.free;
end;