Utiliser in avec un tableau non ouvert

Version imprimable

Bonjour tout le monde.
Voici un exemple de code qui fonctionne avec un tableau ouvert :
Code:

1 2 3 4 5 6 7 var i : Integer; begin i := 0; if i in [ 0, 1, 2, 3 ] then ShowMessage( 'Ca marche!' ); end;
Je voudrais arriver à faire de même avec un tableau dynamique comme par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var i : Integer; Tab : array of Integer; begin SetLength( Tab, 3 ); for i := 0 to Length( Tab ) - 1 do Tab[ i ] := i; i := 0; if i in Tab then ShowMessage( 'Ca marche!' ); end;
Mais j'obtiens ce message d'erreur :

Citation:

Opérateur non applicable à ce type d'opérande

Y-a-t-il un moyen de le faire marcher ?
Ou s'il n'y a pas de moyen, peut-on le faire sans avoir à faire une boucle sur chaque élément du tableau ?

Merci.

PS : le code ci dessus n'est qu'un code exemple.

18/01/2007, 16h33
slimjoe
Salut!
Citation:
Envoyé par WebPac

Voici un exemple de code qui fonctionne avec un tableau ouvert :

Code:

1 2 3 4 5 6 7 var i : Integer; begin i := 0; if i in [ 0, 1, 2, 3 ] then ShowMessage( 'Ca marche!' ); end;
Je crois ici qu'il ne s'agit pas d'un tableau mais d'un ensemble. L'opérateur IN est utilisé pour les ensembles et non pour les tableaux.
18/01/2007, 16h56
WebPac

Oui tu as sûrement raison, j'ai confondu car dans l'aide de Dephi, ils parlent de tableaux ouverts en paramètre de fonctions qui sont de la forme [ 1, 'Toto', True ] mais le in ne doit pas fonctionner avec les tableaux ouverts.

Tant pis, je vais faire une boucle sur les éléments du tableau, j'espérais qu'il existait une solution plus simple et plus rapide, mais bon, ce n'est pas bloquant non plus.

J'arrive un peu tard, mais ce bout de code pourrait en intéresse plus d'un ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function InArray(Row: Integer; const A: array of Integer): Boolean;
var
   ia: Integer;
begin
   result := False;
   for ia := Low(A) to High(A) do
   begin
      if Row = A[ia] then
      begin
         Result := True;
         Exit;
      end;
   end;
end;

je n'ai pas retrouvé, l'autre fonction que j'avais faite, mais avec le code ci-dessus, je l'ai repondu, erreur possible

Code:

1
2
3
4
5
6
7
8
function PosInArray(Row: Integer; const A: array of Integer): Integer;
begin
   for Result := Low(A) to High(A) do
      if Row = A[Result] then
         Exit;
 
   Result := Low(A)-1;
end;

Le second risque de ne pas fonctionner, à cause des optimisations sur le for. Il vaut mieux utiliser une boucle while :
Code:

1 2 3 4 5 6 7 function PosInArray(Row: Integer; const A: array of Integer): Integer; begin Result := Low(A); while Result <= High(A) do if Row = A[Result] then exit else inc(Result); Result := Low(A)-1; end;

Citation:
Envoyé par sjrd
Le second risque de ne pas fonctionner, à cause des optimisations sur le for. Il vaut mieux utiliser une boucle while :
Code:

1 2 3 4 5 6 7 function PosInArray(Row: Integer; const A: array of Integer): Integer; begin Result := Low(A); while Result <= High(A) do if Row = A[Result] then exit else inc(Result); Result := Low(A)-1; end;
Salut, j'ai déjà vu des codes qui utilisaient while et non for (code source des composants VCL par exemple) mais je n'ai jamais trouvé d'explications du pourquoi. Quelle est l'optimisation du for ?

22/01/2007, 10h47
Linkin

Il me semble aussi qu'il y a une différence de performance en faveur du while.
22/01/2007, 11h30
sjrd

Citation:

Envoyé par WebPac

Quelle est l'optimisation du for ?

De remplacer la variable de contrôle par des registres du CPU. Du coup, en sortie de boucle, cette variable peut ne pas être initialisée.

Citation:

Envoyé par Linkin

Il me semble aussi qu'il y a une différence de performance en faveur du while.

Normalement ça devrait être le contraire ;) Ou alors c'est que t'as codé comme un bourrin dans ton for :roll:
22/01/2007, 12h13
ShaiLeTroll

@sjrd :
Regarde la Méthode IndexOf d'une TStrings, et tu verras la même syntaxe, quand Result est utilisé pour parcourir un tableau et que l'on fait un Exit dans la boucle, le for renvoie la bonne valeur, ... il faut biensur, aussi affecté une valeur à result si il n'y a pas eu d'Exit ...

@Linkin
Ensuite le For, est plus rapide, car le Inc est mieux géré et que la borne haute n'est pas réévaluée à chaque intération, ...

Si l'on n'utilise pas la valeur du compteur dans un for, l'optimisation est par exemple un for écrit 1 to 100, il est compilé 99 downto 0, car le test à zéro est une instruction moins longue à écrire en ASM.

Dans le cas d'un Tableau, vu que la borne inférieur et supérieur sont calculés qu'au RunTime, le for est exécuté dans l'ordre demandé donc de Low() à High() ... par contre, si l'on déclare un tableau constante avec un type énuméré par exemple, il sera parcouru de High(Enum) downto Low(Enum)