Discussion :

[ftoutin]

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.

[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.

[Eric Boisvert]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[defluc]

Ben ça fonctionne, Non ?

[sjrd]

Il y a aussi AnsiIndexStr et AnsiIndexText.

[Graffito]

Bonjour,

Dans ce cas, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[ftoutin]

la solution deric est excellente!
merci beaucoup

[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.

[Eric Boisvert]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.