Exclure des caractères d'un string

Résolu
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015 - 3 juin 2007 à 13:18
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 4 juin 2007 à 02:11
bonjour,

je n'ai pas accès au "Snippets" de mon ordinateur principal alors que j'ai accès par un ordinateur d'un collègue ... bizarre !

je voulais juste proposer une variante du code de FOxi (il avait fait une version de Stringreplace +/-), ma variant est :
<hr />function ExcludeChars(const S : string; const CS : TSysCharSet) : string;
var
i,L:integer;
begin
    result:=s; L:=0;
    for i:=1 to length(s) do
    begin
          if not (s[i] in CS) then
          begin
              inc(L); result[L]:=s[i];
          end;
    end;
    Setlength(result,L);
end;<hr />
par exemple : showmessage(ExcludeChars('voiture',['i','u']));

"voiture" devient "votre"

en m'excusant de poster ici en attendant (vous pouvez bien sur émettre d'autres variantes)

DrJerome

8 réponses

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
3 juin 2007 à 20:05
En effet ce Snippet n'a pas été activé
tout simplement parce qu'il n'apporte rien de plus
et en plus elle est encore plus lente que celle de F0xi

 
@+
Cirec

<hr size="2" />
3