mehrere Tokens aus string löschen

[sniper_w]

Delphi-Quellcode:

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);
    p := Pos(strout, ToReplace);
  end;
end;

Dies ist eine Procedur die nicht funktioniert...warum, weiss ich nicht. Was ich erreichen will ist folgendes:

Delphi-Quellcode:

Anfangsstring := 'jh sj ebnjbfu hhh sdhweh sdfhhhs jhe  hjhhh';
ReplaceStr(Anfangsstring, 'hhh, 'X');
//jetzt sieht mein string so aus
Anfangsstring := 'jh sj ebnjbfu X sdhweh sdfXs jhe  hjX';

Was mache ich falsch ?

[Ultimator]

Klappt bei mir aber

[marabu]

Ich würde eine Lösung auf Basis von PosEx() vorziehen, da ansonsten eine nicht endende Rekursion auftreten kann - bereits veränderter Text soll ja nicht erneut betrachtet werden...

Grüße vom marabu

[sniper_w]

Und wo soll PosEx sein ?

[Error] Undeclared idetifier : 'PosEx'

[Khabarakh]

In allen Delphi-Versionen ab 7 ^^ .

[sniper_w]

Ich habe aber Delphi 6...
Meine Lösung (nicht schön aber geht...für meine Zwecke reicht) :

Delphi-Quellcode:

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
    before := before + Copy(after,1,p-1) + strin;
    after := Copy(after, p+Length(strout), length(after) - p+Length(strout) );
    p := Pos(strout, after);
  end;
  ToReplace := before+after;
end;

[marabu]

Zitat von sniper_w:

Und wo soll PosEx sein ?

Tut mir leid, ich hatte D6 in deinem Profil übersehen. Wenn du es je brauchen solltest:

Delphi-Quellcode:

function PosEx(const SubStr, S: string; Offset: integer): integer;
begin
  Result := Pos(SubStr, Copy(S, OffSet, Succ(Length(S) - OffSet)));
  if Result > 0 then Result := Result + Pred(Offset);
end;

Zu finden war es auch mit PosEx als Suchwort hier in der DP. Aber du hast ja jetzt eine Lösung - und sogar ohne die Rekursionsfalle. Schönen Sonntag noch.

marabu

[ripper8472]

delphi (ab 5) hat standardmaessig stringersetzungsfunktionen. wieso benutzt du die nicht??

[sniper_w]

Welche denn ?

[x000x]

Moin moin,
wie wäre es mit StringReplace (SysUtils)?