Ich habe jetzt den folgenden Code untergebracht:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.lines.loadfromfile('
c:\Apache\xampp\htdocs\secure\ram\Charts1.asf')
end;
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;
procedure TForm2.Button2Click(Sender: TObject);
var
i:integer;
begin
for i := 0
to Memo1.Lines.Count
do
changeIP(Memo1.Lines[i],Edit1.text);
end;
end.
Es funtz nicht! Die
Ip wird weder wegeschnitten, noch getauscht.
Wo könnte der Fehler liegen. Oder habe ich vieleicht etwas vergessen?
[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]