Comment enregistrer un type enuméré dans un fichier ?

**Andry** · 16/12/2004, 09h32

Salut à tous,

J'ai un type enuméré et une variable de ce type comme ceci

Code :

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

1
2
3
4
5
6
7
 
Type
   TMonType = (mtType1,mtType2,mtType3,...,mtTypen);
  ....
  ....
   private
     FMonVar   : TmonType;

J'aimerais enregistrer ou charger la valeur de FMonVar depuis un fichier texte. Comment dois je proceder

Merci

**Jer'** · 16/12/2004, 09h42

Une piste toute bête : les types énuméré possèdent des "valeurs ordinales" (je ne sais pas si le terme est vraiment celui la), accessible via la fonction Ord().
Dans ton exemple, Ord(mtType1) = 0, Ord(mtType2) = 1, etc... De cette façon, tu peut écrire dans ton fichier la valeur correspondante.
Par contre, pour la lecture, il faut à mon avis se farcir un case of :

Code :

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

1
2
3
4
5
case i of
  0 : FMonVar := mtType1;
  1 : FMonVar := mtType2;
  ...
end;

Si quelqu'un a une meilleur solution pour la lecture, je suis également preneur !

**Clorish** · 16/12/2004, 10h49

Ecriture :

Code :

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

1
2
 
WriteLn(f, IntToStr(mtType1));

LEcture :

Code :

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

1
2
3
 
ReadLn(f, i);
MonType := TMonType(StrToInt(i));

**sovitec** · 16/12/2004, 11h58

Comme dit au dessus un élément de type énuméré possède une correspondance ordinale égale à sa position dans la liste. Il faut donc faire attention si on rajoute un nouvel élément à le mettre à la fin sinon on risque d'avoir des problèmes lors de la lecture de fichier d'une version précédente.

**Clorish** · 16/12/2004, 12h03

sinon on risque d'avoir des problèmes lors de la lecture de fichier d'une version précédente.

Ca de toute facon si on change quoi que ce soit dans les donnees sauvegardé, ya de grande chance d'avoir des problemes de compatibilités de versions.
Mais bon la ca releve plus de la gestion de versions.

**sovitec** · 16/12/2004, 12h09

Envoyé par Clorish

sinon on risque d'avoir des problèmes lors de la lecture de fichier d'une version précédente.

Ca de toute facon si on change quoi que ce soit dans les donnees sauvegardé, ya de grande chance d'avoir des problemes de compatibilités de versions.
Mais bon la ca releve plus de la gestion de versions.

On peut aussi associer un nom à chaque type et sauvegarder le nom dans le fichier plutôt que simplement son numéro. C'est un peu plus compliqué, et beaucoup plus long, mais c'est plus souple.

**Clorish** · 16/12/2004, 12h13

Reste le choix de la souplesse ou de la simplicite ;p

A voir

Chacun est libre ;p

**Pierre Castelain** · 16/12/2004, 13h03

Beauciup plus efficace en utilisant RTTI :

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
 
uses
  TypInfo;
 
type
  TMonType = (mtType1, mtType2, mtType3);
var
  FMonType: TMonType;
 
procedure test;
var
  s: string;
begin
  FMonType:= mtType2;
 
  // Récupération de la chaîne correspondant à la valeur de FMonType
  s:= GetEnumName(TypeInfo(TMonType), Ord(FMonType));
  // s = 'mtType2'
 
  // Récupération de la valeur correspondant à la chaîne s
  FMonType:= TMonType(GetEnumValue(TypeInfo(TMonType), 'mtType3'));
  // FMonType = mtType3
end;