Hallo,
habe jetzt versucht das so zu lösen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
s:String;
bla:textfile;
begin
memo1.loadfromfile(fileb.filename);
i := memo1.lines.count;
AssignFile(bla,fileb.filename);
Reset(bla);
for i := 0 to i - 1 do begin
readln(bla,s);
if (pos('Z',s)>0) then begin
write(bla,#10);
writeln(bla, 'M0');
end;
end;
end;;
Leider wird in der Datei nichts sichtbar verändert
