Discussion :

[Papy214]

Bonjour

Je me demande s'il n'y a pas un petit bug dans tout ça.

Code OK

Code :

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

1
2
3
4
5
6
7
 
TMonEnum = (enum01);
 
....
 
MonEnum := TMonEnum.enum01;
ShowMessage(System.Rtti.TRttiEnumerationType<TMonEnum>.GetName(MonEnum));

Code qui """bugue""" (les " sont volontaires à cause du doute)

Code :

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

1
2
3
4
5
6
7
TMonEnum = (enum01 = 1);

....

MonEnum := TMonEnum.enum01;
ShowMessage(System.Rtti.TRttiEnumerationType<TMonEnum>.GetName(MonEnum));

Boum ... Violation d'accès

Il y a sans doute une raison à ça mais je ne vois pas laquelle

[Paul TOTH]

il y a un bug dans ton code (le <TMonEnum> doit être après GetName, ou même ignoré, mais pas avant le point)...et dans Delphi car le second type n'a pas de RTTI, d'où la violation d'accès (

Code :

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

1
2
 
 WriteLn(Integer(TypeInfo(TMonEnum)));  // [dcc32 Erreur] Project1.dpr(27): E2134 Le type 'TMonEnum' n'a pas d'information de type

[Paul TOTH]

en fait c'est un vieux bug http://stackoverflow.com/questions/1...420649#1420649

voici 2 façons de faire

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils,
  System.Rtti;
 
type
  TEnum1 = (value1);
 
  TEnum2 = (value2 = 1, value3 = 3);
 
var
  e1: TEnum1;
  e2: TEnum2;
 
const
  Enum1Names:array[TEnum1] of string = ('value1');
  Enum2Names:array[TEnum2] of string = ('value2', '', 'value3');
 
type
  TEnum2Name = record
    Value: TEnum2;
    Name : string;
  end;
 
const
  Enum2NameLookup : array[0..1] of TEnum2Name = (
    (Value: value2; name: 'value2'),
    (Value: value3; name: 'value3')
  );
 
function GetEnum2Name(Value: TEnum2): string;
var
  Index: Integer;
begin
  for Index := Low(Enum2NameLookup) to High(Enum2NameLookUp) do
  begin
    if Enum2NameLookup[Index].Value = Value then
      Exit(Enum2NameLookup[Index].Name);
  end;
  Result := 'TEnum2(' + IntToStr(Ord(Value)) + ')';
end;
 
begin
  try
    e1 := value1;
    WriteLn(System.Rtti.TRttiEnumerationType.GetName(e1));
 
    e2 := value2;
    WriteLn(Enum2Names[e2]);
    WriteLn(GetEnum2Name(e2));
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

[Papy214]

Donc, ça sentait bien un peu le bug.

C'est une façon de faire intéressante mais un peu peu plus longue qu'en utilisant directement les rtti.
Je commencerai mes énumérations à 0, ça sera plus simple

Merci à toi grand chef