Discussion :

[HT]

Soit un type énuméré TRomain=(M,D,C,L,X,V,I)
J'extrais d'un nombre en chiffre romains un caractère, donc M ou C ou ... I
Peut-on le transformer en TRomain d'une autre manière que par une boucle sur un tableau de correspondance ?

Voici le code :

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
 
type TRomain=(M,D,C,L,X,V,I);
 
const
    romain:array[TRomain]of char=('M','D','C','L','X','V','I');
 
 
 
 
function RomainAdArabe(nbRomain:shortstring):cardinal;
var lettre:TRomain;
 
car:char;
 
begin
    for k:=length(nbRomain) downto 1 do
    begin
        car:=((uppercase(nbRomain)[k]));
        for lettre:=M to I do if car=romain[lettre] then break;
    end;

je récupère ainsi dans lettre le type énuméré correspondant au caractère.
Mais cela me paraît un peu lourd, non ?

[Pierre Castelain]

C'est possible grâce à RTTI (Run-time type information).
Même si ces méthodes sont très peu documentées, elles sont très, très utiles.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
uses
  TypInfo;
 
type TRomain=(M, D, C, L, X, V, I);
 
function RomainAdArabe2(ChiffreRomain: char): cardinal;
begin
  try
    result:= GetEnumValue(TypeInfo(TRomain), ChiffreRomain);
  except
    raise Exception.Create(ChiffreRomain + ' n''est pas un chiffre romain.');
  end;
end;

[HT]

Merci à P Castelain
C'est curieux comme coïncidence, j'ai commencé à lire ce matin un chapitre sur la RTTI Ca m'a paru pas facile mais du coup j'ai un point d'entrée.
+Question de détail Comment on fait pour faire afficher RESOLU dans le titre ?

[Smortex]

Comment on fait pour faire afficher RESOLU dans le titre ?

On édite tout simplement le premier message et on change son titre

Bon développement !