Forum: Programmieren allgemein
by sniper_w,
9. Okt 2005
Ich habe aber Delphi 6...
Meine Lösung (nicht schön aber geht...für meine Zwecke reicht) :procedure ReplaceStr(var ToReplace:string; const strout,strin:string);
var p :integer;
before, after:string;
begin
before := '';
after := ToReplace;
p := Pos(strout, after);
while p<>0 do
begin
Forum: Programmieren allgemein
by sniper_w,
9. Okt 2005
Und wo soll PosEx sein ?
Undeclared idetifier : 'PosEx'
Forum: Programmieren allgemein
by sniper_w,
9. Okt 2005
procedure ReplaceStr(var ToReplace:string; const strout,strin:string);
var p:integer;
begin
p := Pos(strout, ToReplace);
//if p<>0 then
while p<>0 do
begin
Delete(ToReplace, p, Length( strout ) );
Insert(strin, ToReplace, p);
//ReplaceStr(ToReplace, strout, strin);