Jetzt wird alles korrekt ausgeführt, allerdings wird jetzt in jeder in dem Memo geöffneten Datien alle Zeilen geschrieben:
"http://11111111111111/secure/mp3/Titel1.wma"
"http://11111111111111/secure/MP3/Titel2.wma"
"http://11111111111111/secure/MP3/Titel3.wma"
"http://11111111111111/secure/MP3/Titel4.wma"
realisiert wurde das so:
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to Memo1.Lines.Count-1 do
Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text);
memo1.Lines.SaveToFile('C:/test1.asf');
Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text);
memo1.Lines.SaveToFile('C:/test2.asf');
Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text);
memo1.Lines.SaveToFile('C:/test3.asf');
Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text);
memo1.Lines.SaveToFile('C:/test4.asf');
end;