Discussion :

[Lung]

Est-il possible de récupérer le nombre d'éléments d'un type énuméré ?
Avec une fonction RTTI ou System.TypInfo ?

Et si oui, comment ?

[anapurna]

salut

Code :

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

high(TENUM)

devrait fonctionner

[Paul TOTH]

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
 
uses
  System.TypInfo;
 
type
  TMonEnum = (
    un,
    deux,
    trois,
    quatre
  );
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage((PTypeInfo(TypeInfo(TMonEnum)).TypeData.MaxValue + 1).ToString);
end;

[Lung]

Code :

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

high(TENUM)

devrait fonctionner

Tout simplement ! Effectivement, ça marche.

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
 
uses
  System.TypInfo;
 
type
  TMonEnum = (
    un,
    deux,
    trois,
    quatre
  );
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage((PTypeInfo(TypeInfo(TMonEnum)).TypeData.MaxValue + 1).ToString);
end;

J'obtiens ça :

[dcc64 Erreur] gtHubCollector_Frm.pas(149): E2134 Le type 'TFluxPhase' n'a pas d'information de type

Peut-être que ça ne peut marcher qu'avec les classes et pas avec les types énumérés ...

[Paul TOTH]

ah tu voulais la valeur haute ! moi je répondais à ta question RTTI

si to enum n'a pas de RTTI c'est probablement car tu as fixé les valeurs

https://quality.embarcadero.com/browse/RSP-12189

[Lung]

si to enum n'a pas de RTTI c'est probablement car tu as fixé les valeurs

Oui, j'ai fixé la première valeur.
Si je la retire, ton code fonctionne aussi. Mais comme j'ai besoin de la fixer, je pars sur la solution d'anapurna.
Mais je me note ta solution (je devrais jouer plus souvent avec TypeInfo).