function StrReplace(const S, OldPattern, NewPattern: string): string; var SearchStr : string; Patt : string; NewStr : string; Offset : Integer; begin SearchStr := S; Patt := OldPattern; NewStr := S; Result := ''; while SearchStr <> '' do begin Offset := AnsiPos(Patt, SearchStr); if Offset = 0 then begin Result := Result + NewStr; Break; end; Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern; NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt); SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt); end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionl'utilisateur saisit : Toto' Après ton traitement sa donne : Toto''