tableau et mot-clé "in"

**Lorenzo77** · 10/06/2006, 16h42

salut,

je me demande comment arriver a utiliser in avec un tableau afin de verifier si une valeur fait bien partie des valeurs du tableau, ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const
	tbMinus: Array[0..25] of Char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
 
.........
.........
 
    EditPasse.Text := EditPasse.Text + chLettre;
 
    // ceci ne fonctionne pas
    if chLettre in tbMinus then inTotalPossible := inTotalPossible * length(tbMinus)
 
    // je dois faire ca ce qui est pas tres pratique :
    if chLettre in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'] then inTotalPossible := inTotalPossible * length(tbMinus)

merci

**sjrd** · 10/06/2006, 17h08

Déjà tu peux utiliser les ensembles décrits avec .. plutôt qu'en extension :

Code :

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

if chLettre in ['a'..'z'] then

Ensuite tu as les fonctions AnsiMatchText et AnsiMatchStr. Voir

pour plus d'infos

**Pascal Jankowski** · 10/06/2006, 17h56

En complément de ce que Sébastien vient de te donner:

Code :

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

1
2
 
if chLettre in ['a'..'z','A'..'Z','+','-','0'..'9'] then

est une combinaison possible avec []

**Lorenzo77** · 10/06/2006, 21h04

je ne veux justement pas utiliser les ensembles pour pouvoir rechercher directement la valeur dans le tableau !

j'ai essayé AnsiMatchStr mais j'ai erreur de type

.... evidemment, mes tables sont des tableaux de CHAR, je suis sur que ca vient de la

mais cette soluce me semble la bonne

comment faire pour transtyper un tableau de char en string temporairement ?

**Graffito** · 10/06/2006, 21h56

Bonjour,

Voir les Tstringlist.

Utiliser my_Tstringlist.add(my_string) pour ajouter un element et my_Tstringlist.IndexOf(my_searched_string) pour la recherche.

**Lorenzo77** · 10/06/2006, 22h33

si j'avais su ceci avant j'aurai peut etre pris cette direction mais maintenant la question est : comment faire pour transtyper un tableau de char en string temporairement ?

s'il n'existe pas de methode pour le faire je suis obligé de faire une boucle sur toutes les valeurs afin de les inserer dans un ensemble ?

---
de plus j'ai deja utilisé les TstringList mais j'ai trouvé ca tres lent pour les grandes listes

**sjrd** · 10/06/2006, 23h10

Ben tu code un AnsiMatchChar

Code :

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

1
2
3
4
5
6
7
function AnsiMatchChar(C : Char; Tab : array of Char) : boolean;
begin
  Result := Low(Tab);
  while Result <= High(Tab) do
    if Tab[Result] = C then exit else inc(Result);
  Result := -1;
end;

Et voilà

**Graffito** · 11/06/2006, 00h02

Salut,

j'ai deja utilisé les TstringList mais j'ai trouvé ca tres lent pour les grandes listes

Je confirme, le indexof craint pour les performances.
Si on doit aller vite, mieux vaut faire une boucle.

**sjrd** · 11/06/2006, 01h45

Envoyé par Graffito

Je confirme, le indexof craint pour les performances.
Si on doit aller vite, mieux vaut faire une boucle.

Pas si tu utilises une THashedStringList

**Lorenzo77** · 11/06/2006, 02h40

sjrd : donc il faut bien faire une boucle sur l'integralité des elements pour faire la comparaison, j'esperais une fonction interne pour les perfs ...

merci

**sjrd** · 11/06/2006, 13h54

Fonction interne pour les perfs... Elle ne pourrait pas faire mieux

D'ailleurs AnsiMatchStr et ses copines sont codées également avec une boucle classique.

N'oublie pas le bouton

**tourlourou** · 11/06/2006, 15h00

ne peut-on pas définir une variable ensemble de type set of Char
que l'on initialise en lui passant un à un les éléments du tableau
pour ensuite utiliser in :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
 ens: set of Char;
 tab: array of Char;
begin
 // initialisation du tableau
 ens:=[]; // pour vider l'ensemble (syntaxe à préciser)
 for i:=0 to Length(tab)-1 do
   ens:=ens+tab[i]; // je crois qu'on peut utiliser les unions d'ensembles
 // puis test :
 if CeChar in ens then Beep;
end;

**tourlourou** · 11/06/2006, 15h07

autre solution :

Code :

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

1
2
3
4
5
6
7
8
var
 c: char;
 s: string[26];
 t: array[0..25] of Char absolute s[1];
begin
 // initialisation du tableau t 
 if Pos(c,s)>0 then Beep;
end;

**thewho** · 11/06/2006, 15h37

Bonjour,

Pourquoi vous fatiguer ?

Les ensembles sont là pour gérer ce genre de problème, et leur fonctionnement est assez bien optimisé, tant en occupation mémoire que vitesse.

Il faut savoir revenir un peu en arrière quand on tombe sur un problème dont une solution existe, au lieu de se torturer les méninges, pour aboutir souvent à une solution bâtarde (c'est la cas de tout ce que j'ai vu plus haut).

**sjrd** · 11/06/2006, 16h22

Envoyé par thewho

Bonjour,

Pourquoi vous fatiguer ?

Les ensembles sont là pour gérer ce genre de problème, et leur fonctionnement est assez bien optimisé, tant en occupation mémoire que vitesse.

Il faut savoir revenir un peu en arrière quand on tombe sur un problème dont une solution existe, au lieu de se torturer les méninges, pour aboutir souvent à une solution bâtarde (c'est la cas de tout ce que j'ai vu plus haut).

Oh là, doucement

Les solutions qui sont ici au-dessus ne sont pas aussi bâtarde que tu le dis.

La boucle est la solution la plus efficace pour un parcours de tableau une fois ;
La transformation du tableau en set of est plus efficace si plusieurs tests doivent être effectués sur le même tableau, sans qu'il ne soit modifié entre ces tests ;
L'utilisation de set of est bien entendu la plus efficace en soi, mais le contexte peut faire que l'on dispose d'un tableau et non d'un set, pour des raisons extérieures à cette partie du code.

La première solution de tourlourou peut donc être intéressante, s'il faut tester plusieurs caractères. Mais on peut alors l'optimiser en utilisant la pseudo-routine Include :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function CharArrayToSet(Chars : array of Char) : TSysCharSet;
var I : integer;
begin
  Result := [];
  for I := Low(Chars) to High(Chars) do
    Include(Result, Chars[i]);
end;
 
// utilisation
CharSet := CharArrayToSet(CharArray);
if C1 in CharSet then
  DoSomething1;
if C2 in CharSet then
  DoSomething2;

En revanche, sa seconde solution est non seulement moins propre (il y en a qui te tueraient s'ils voyaient ton absolute

), mais aussi moins efficace, puisque Pos effectue quand même une boucle et que l'utilisation des string est plus lente (légèrement mais bon...) que celle de tableaux, à cause des compteurs de références et de l'allocation sous-entendue...

Vous voyez, il y a moyen de disserter longtemps là-dessus

**Graffito** · 11/06/2006, 19h43

Bonjour,

Si les élements sont des char (pas des string) :
Au lieu de :

if chLettre in ['a'..'z','A'..'Z','+','-','0'..'9'] then

faire

Code :

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

1
2
3
if pos(chlettre, 'abcdefghijklmnopqrstuvwxyz'+
   ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
    '+-0123456789')>0 then

ca sera rapide (ca se traduit par une instructions du microprocesseur sans boucle).

**thewho** · 11/06/2006, 23h39

Bonjour,

Envoyé par sjrd

Oh là, doucement Les solutions qui sont ici au-dessus ne sont pas aussi bâtarde que tu le dis.

Dois-je conclure qu'elles le sont donc ?

Plus sérieux: je dis qu'elles sont bâtardes parce qu'elles sont là pour remplacer une erreur de conception au départ, les ensembles étant clairement la solution à utiliser.

Côté performances, je me suis amusé à faire quelques mesures, avec du code utilisant une boucle comme ceci:

Code :

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

1
2
3
for i:= 1 to nombreTours do
  if (condition) then
    begin end;[/c]

avec différentes solutions:

1) avec un ensemble

Code :

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

1
2
3
4
5
6
7
8
se : set of char;
c : char

...
se := ['a'..'z','A'..'Z']
c := 'B';
...
condition :  c in se

2) avec une chaîne comme Graffito l'a proposé (comme je le pensais bien, en allant voir le code généré, on est très loin d'utiliser une seule instruction comme l'affirme Graffito)

Code :

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

1
2
3
4
5
6
c: char;
...
c := 'B';
...
condition :  if pos(c,'abcdefghijklmnopqrstuvwxyz'+'ABCDEFGHIJKLMNOPQRSTUVWXYZ')>0

3) avec une chaîne déclarée dans la section var de la procédure

Code :

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

1
2
3
4
5
6
7
s : string;
c: char;
...
c := 'B';
s := 'abcdefghijklmnopqrstuvwxyz'+'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
...
condition :  if pos(c,s)>0

Avec les résultats suivants, exprimés en millisecondes, mesuré sur 10000000 tours, et arrondis:

1) ==> 60
2) ==> 860
3) ==> 870

(la mesure du temps est faite avec QueryPerformanceCounter)

Les ensembles sont donc incontestablement nettement plus rapides.

Ceci étant dit, en ayant besoin de faire un tel test, et vu le tableau utilisé pour ça, je ne vois pas ce qui empêche d'utiliser un ensemble dès le départ, d'autant plus que le tableau est déclaré comme constante, et sert manifestement à vérifier qu'un caractère appartient ou non à ce tableau, ce qui est le but des ensembles.
D'où ma réflexion sur la bâtardise...

**Lorenzo77** · 12/06/2006, 01h41

voila une discussion extrement enrichissante grace aux exemples commentés !

merci les gars pour les infos

**sjrd** · 12/06/2006, 16h23

Envoyé par thewho

Dois-je conclure qu'elles le sont donc ?

Eh bien oui

Pour la même raison que toi :

Envoyé par thewho

Plus sérieux: je dis qu'elles sont bâtardes parce qu'elles sont là pour remplacer une erreur de conception au départ, les ensembles étant clairement la solution à utiliser.

Mais je relativise en ajoutant que si l'utilisation du tableau est inévitable, ces solutions ne sont pas à exclure...

Envoyé par thewho

Côté performances, je me suis amusé à faire quelques mesures, avec du code utilisant une boucle comme ceci:

C'est évident, le in est un test d'indexage binaire en temps constant, alors que la boucle ou le pos sont des algos en temps linéaire

[/quote]

**Graffito** · 12/06/2006, 20h06

Bonjour,

thewho a écrit :
(comme je le pensais bien, en allant voir le code généré, on est très loin d'utiliser une seule instruction comme l'affirme Graffito)

Mauvais point pour l'optimiseur (et donc pour moi), l'optimisation aurait pu ou aurait du traduire le code par une instruction "REPZ CMPS" pour les chaînes recherchées de longueur 1.

Il faudrait donc explicitement utiliser strscan qui cherche 1 caractère dans une chaîne (en espérant que strscan ne fait pas appel à pos).

tableau et mot-clé "in"

Delphi

Partager

Partager