Code:
if [i][b]Pos(xyz, s) <> 0[/b][/i] then begin
repeat
...
until [i][b]Pos(xyz, s) = 0[/b][/i];
end;
wie wäre es damit?
Code:
while [i][b]Pos(xyz, s) <> 0[/b][/i] do begin
...
end;
Und nein, es ist nicht so gut ... man nehmen dann doch lieber das StringReplace aus der CodeLib.
Also, z.B.
xyz:='bla'; und
b:='blaa'; ... ich glaub das ergibt 'ne Endlosschleife
PS:
//+3: je nach length(xyz)
Wie wäre es, wenn man da direkt +length(xyz) hinschreiben würde?
ähhh ... copy(s,
0, ... du weißt aber, daß Strings mit dem Index 1 beginnen?
Und wenn du es schon direkt imEingangsstring ersetzten möchtest, dann solltest du entweder mit PosEx (wobei, das gibt's in D3 ja auch nicht) arbeiten und dann jedesmal hinter dem eingesetzten String weitersuchen, oder von hinten nach vorne die xyz's ersetzen.
Delphi-Quellcode:
s :='bla bla bla bla';
a :='bla';
b :='muh sagt die kuh';
i := Pos(a, s);
while i > 0 do begin
s := copy(s, 1, i - 1) + b + copy(s, i + length(a), length(s));
i := PosEx(a, s, i + length(b));
//alternativ für die Zeile mit PosEx geht auch folgendes, nach marabu in
//http://www.delphipraxis.net/topic66582_alternative+zu+posex+und+insert.html
// i2 := i + length(b);
// i := Pos(a, Copy(s, i2, Length(s) - i2 + 1));
// if i > 0 then inc(i, i2 - 1);
end;
PS: 'ne PosEx findet man da ... Code-Library -> Object-Pascal / Delphi-Language ->
(Teil)String in anderem String suchen/zählen