In Textdatei suchen und Zeile einfügen

[RWarnecke]

Zitat von Spurius:

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

die Zeile

for i := 0 to i - 1 do begin muss for j := 0 to i - 1 do begin