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