habs selber hinbekommen so:
Delphi-Quellcode:
s:='bla bla bla bla';
xyz:='bla';
b:='muh sagt die kuh';
if Pos(xyz, s) <> 0 then begin
repeat
s1:=copy(s,0,pos(xyz,s)-1);
s2:=copy(s,pos(xyz,s)+3,length(s)); //+3: je nach length(xyz)
s:=s1+b+s2;
until Pos(xyz, s) = 0;
end;
[edit]Vorteil: Funktioniert auch bei Delphi 3 Pro (StringReplace kennt der wohl nicht!)[/edit]