Thema: Delphi ReplaceAll mit WildCard

Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#3

Re: ReplaceAll mit WildCard

  Alt 10. Jul 2005, 17:25
ich brauche eine function wie diese:

Delphi-Quellcode:
function ReplaceWildCard(ToRep, RepWith: String):Boolean;
var T:Integer;
begin
  T:=Pos(ToRep,MainString);
  if T>0 then
    begin
    Delete(T,Length(ToRep));
    Insert(T,RepWith);
    end;
  Result:=T>0;
end;

function ReplaceAllWildCards(ToRep, RepWith: String);
begin
  while ReplaceWildCard(ToRep, RepWith) do ;
end;
die halt einen String abcdefg auch ersetzt, wenn der Suchstring a*d*g ist...
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat