In Textdatei suchen und Zeile einfügen

[Spurius]

Hi,
habs jetzt folgendermaßen gelöst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
 s:String;
 bla:textfile;
 list1:TStringlist;
begin
 list1 := TStringlist.Create;
 list1.LoadFromFile(fileb.FileName);
 i := list1.Count;
 AssignFile(bla,fileb.filename);
 Reset(bla);
 for i := 0 to i - 1 do begin
 readln(bla,s);
 memo1.Lines.Add(s);
 if (pos('z',s)>0) then begin
  memo1.Lines.Add('M0');
  end;
 end;
 memo1.Lines.SaveToFile(fileb.FileName +'-conv.txt');
end;

Trotzdem danke für die Hilfe
Gruß
Martin