Schleifen problem

[mkinzler]

Im Code ersetzt du ja nur die erste Variante

Delphi-Quellcode:

for i := 0 to Pred(sl.Count) do
begin
    sl[i] := StringReplace(sl[i],Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);
    sl[i] := StringReplace(sl[i],Memo1.Lines[1],Memo2.Lines[1],[rfReplaceAll]);
    sl[i] := StringReplace(sl[i],Memo1.Lines[2],Memo2.Lines[2],[rfReplaceAll]);
    sl[i] := StringReplace(sl[i],Memo1.Lines[3],Memo2.Lines[3],[rfReplaceAll]);
end;     
sl.SaveToFile(neu);