Dateien bearbeiten

[_frank_]

also für zeilenweise bearbeitung eignet sich imho TStringlist am besten

so in etwa (ungetested):

Delphi-Quellcode:

var sl:TStringlist;
    i :integer;
begin
  sl:=TStringlist.create;
  sl.loadfromfile(...);
  i:=0;
  while (i< sl.count) and (pos('text',sl.strings[i])=0) do inc(i);
  sl.insert(i+1,'zusatztext');
  memo1.lines.assign(sl);
  sl.savetofile(...);
  sl.free;
end;

HTH Frank