Schreiben einer Zeile in ein Textfile - need help, THX

[himitsu]

Eventuell wäre die Verwendung einer TStringList einfacher?
(dort gibt es soeine schöne Insert-Methode)

aber hier würde es im Prinzip so gehn

Delphi-Quellcode:

while not eof(myfile) do 
begin
  ReadLn(myfile, S);
  WriteLn(otherfile, S);
  if {hier einfügen?} then
  begin
    WriteLn(otherfile, 'dieses NACH der gelesenen Zeile einfügen');
  end;
end;

bzw.

Delphi-Quellcode:

while not eof(myfile) do 
begin
  ReadLn(myfile, S);
  if {hier einfügen?} then
  begin
    WriteLn(otherfile, 'dieses VOR der gelesenen Zeile einfügen');
  end;
  WriteLn(otherfile, S);
end;