Gute Idee...Ich übernehm einfach mal deinen Code und pass das etwas an
Delphi-Quellcode:
function changeIP(oldadr,newIp:
String):
String;
var
s:
string;
i : Integer;
begin
s := oldadr;
delete(s,1,pos('
//',s)+1);
// HTTP:// wegschneiden, man geh davon aus dass es immer auf "//" endet
delete(s,1,pos('
/',s)-1);
// Die IP wegschnippel ( also bis zum nächsten "/")
result := '
http://' + newIP + s;
// HTTP davor dann die IP und dann der rest ...
end;
Das ganze wird so aufgerufen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender:TObject);
var
i:integer;
begin
for i := 0 to Memo1.Lines.Count do
changeIP(Memo1.Lines[i],Edit1.text);
end;
In Edit1 würd dann die neue
IP stehen