Discussion :

[WebPac]

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

Code :

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

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 :

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

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 :

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.

[slimjoe]

Salut!

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

Code :

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

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.

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

[ShaiLeTroll]

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

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 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 :

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

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;

[sjrd]

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

Code :

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

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;

[WebPac]

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

Code :

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

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 ?