Test sur un ensemble de chaîne

Version imprimable

30/01/2007, 18h10
ftoutin

Test sur un ensemble de chaîne

Hello a tous,

Mon probleme est simple (enfin pas tant que ca)

jaimerai faire un test d'une chaine sur un ensemble de chaine en delphi du genre :

If VarTest in ('a', 'b', 'c') then .....

en fait les valeurs a,b,c peuvent varier en nombre car elles proviennent dun fichier xml donc un :

If VarTest = 'a' and VarTest = 'b'..... est impossible car elles mobligerait a generer un code delphi :? .

jespere avoir ete assez clair, ya til ce genre de syntaxe en delphi?

merci.
30/01/2007, 18h27
defluc

Bonjour

Il faudrait en dire un peu plus.

A priori, il est toujours possible de tester si une chaine est vide et sortir de la boucle à ce moment.

si j'ai bien compris...j'utiliserai une TStringList...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure TForm1.Button11Click(Sender: TObject);
var
    FastFind:TStringList;
    ffIndex:integer;
    VarTest:string;
begin
    FastFind:=TStringList.Create;
    try
        //on rempli la liste
        FastFind.Add('a');
        FastFind.Add('c');
        FastFind.Add('b');
        //On trie la liste pour faire fonctionner Find()
        FastFind.Sort;
 
        VarTest:='b';
        if FastFind.Find(VarTest,ffIndex) then
        begin
            //traitement VarTest est dans la liste
        end
        else
        begin
            //traitement VarTest N'est PAS dans la liste
        end;
    finally
        FastFind.Clear;
        FastFind.Free;
    end;
end;

Bonjour,

Dans ce cas, j'utilise :

Code:

1
2
3
4
5
var VarTest, VarList : string ;
     sep : char ;
sep:=#1 ;
varList:=sep+'a'+sep+'b'+sep+'c'+sep ;
if pos(sep+VarTest+sep,VarList)>0 then // trouvé

30/01/2007, 18h43
defluc

Ben ça fonctionne, Non ?
30/01/2007, 21h41
sjrd

Il y a aussi AnsiIndexStr et AnsiIndexText.
31/01/2007, 15h53
ftoutin

la solution deric est excellente!
merci beaucoup;)
31/01/2007, 16h18
JeanMarc_T2k

Bonjour,

La solution de la TStringList est bonne. Toutefois, il me semble qu'il y a plus simple que trier la liste de chaines, puis appeler la fonction Find.

In suffit d'appeler la fonction IndexOf, qui renvoie la position de la chaine dans la liste, ou -1 si la chaine n'est pas dans la liste.
31/01/2007, 16h55
Eric Boisvert
Citation:

Envoyé par JeanMarc_T2k

Toutefois, il me semble qu'il y a plus simple que trier la liste de chaines, puis appeler la fonction Find.

In suffit d'appeler la fonction IndexOf, qui renvoie la position de la chaine dans la liste, ou -1 si la chaine n'est pas dans la liste.

L'utilisation du find devient intéressant dans le cas où il y a beacoup
de sous chaînes à traiter. Le coût du sort devient négligable et accélère de
beaucoup la recherche de la présence ou non d'une sous-chaine dans la liste.

Dans le cas d'une liste triée, la fonction IndexOf() appele Find() qui est beaucoup plus rapide:
Citation:
Envoyé par Code Delphi de IndexOf

Code:

1 2 3 4 5 function TStringList.IndexOf(const S: string): Integer; begin if not Sorted then Result := inherited IndexOf(S) else if not Find(S, Result) then Result := -1; end;
Si la liste est courte, on pourrait effectivement perdre du temps à faire un trie. Dans ce cas, il me semble plus simple d'utiliser la méthode de Graffito
qui est beaucoup moins lourde que l'utilisation d'un TStringList.