1:
2:
3:
4:
5:
6:
7:
8:
9:

        
var
s: TStringList

begin
 s[i] := StringReplace(s[i], alterString, neuerString, []);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

//...
var a: String;
begin
  a:='Das ist Ip 100.100.10.1, also ziemlich lang!';
  a:=StringReplace(a, '100.100.10.1', '1.1.1.1', []);
  //Jetzt ist a='Das ist Ip 1.1.1.1, also ziemlich lang!'
  a:=StringReplace(a, '1.1.1.1', '100.100.10.1', []);
  //Jetzt ist a wieder der ursprüngliche String:
  //a='Das ist Ip 100.100.10.1, also ziemlich lang!'
end;