Discussion :

[WebPac]

Bonjour tout le monde.

Je dois écrire dans un fichier, et qu'il soit lisible comme un .Ini donc j'ai choisi les fichiers textes, jusque là je pense ne pas me tromper (encore que si qqn connait un moyen en fichier binaire je suis preneur).

Tout marche bien jusqu'au moment ou j'ai essayé d'écrire un type énuméré, il ne veut pas, après des recherches sur le sujet, j'ai l'impression que je devrais forcément passer par un case of pour l'écriture et donc aussi un case of pour la lecture.

Ayant pas mal d'énumérés et chacun ayant tout de même pas mal de possibilités, je viens ici pour voir s'il n'existe pas un moyen plus rapide.

Merci.

[WebPac]

C bon, j'ai trouvé la solution dans un ancien post d'ici, il faut utiliser:
GetEnumName(TypeInfo(TypeDeLaVar), Ord(NomDeLaVar));

une fonction de la RTTI, à mettre dans le uses : TyPInfo.

Sinon, j'ai pas trouvé comment faire la fonction inverse, qui à partir d'une string retrouve l'énuméré correspondant.

Vous avez pas une idée STP ?

[WebPac]

J'ai trouvé pour le faire dans le sens inverse, il suffit d'utiliser la fonction:
GetEnumValue.

[Targan]

Bonjour,

j'ai quelques soucis avec ces fonctions.

Je m'explique, voici ma liste enumérée :

TTypeList = (tlibre = Ord('L'), tfixe = Ord('F'));


Maintenant, j'ai une variable FType : TTypeList et je voudrais la renseigner à partir d'un fichier XML et vice versa.

Pour cela, j'ai fait ceci : FType := TTypeList(Ord(Str[1])); Pas de problème.

Par contre, impossible de faire l'opération inverse, c'est à dire inscrire dans le fichier la valeur littérale correspondante, j'ai tenté ceci :

Chr(FType);

voir meme un truc qui ne passe pas du style car faut un string en parametre...

Chr(GetEnumValue(TypeInfo(TTypeList), FType)

Bref qqun a t il une idée pour récuperer L ou F à partir des valeurs de la liste ?

Merci.


[Edit] Deja le compilateur me dit que TTypeList n a pas d information de Type O_o

[ShaiLeTroll]

tu te complique la vie, si tu veux juste écrire F ou L dans un fichier XML ... d'ailleurs sache que ton énumération contient toutes les valeurs entre F et L non nommés ... cela peut nuire aux RTTI ...

le sujet parlait d'écrire dans un fichier tlibre ou tfixe en tout lettre et non pas écrire la valeur ...

[sjrd]

Les enums avec valeur imposée n'ont pas de RTTI, effectivement. Et je dérecommande toujours autant leur utilisation.

[WebPac]

Hihi, on déterre un cadavre qui a presque 4 ans.
J'ai utilisé les fonctions GetEnumName et GetEnumValue depuis, ça ne m'a procuré aucun problème pour l'instant et vu tout le code fait et qu'il n'y a pas de bugs, je doute reprendre tout le code l'utilisant.
Merci.

[sjrd]

Je n'ai jamais dit que GetEnumName et GetEnumValue étaient pas bien. J'ai parlé des énumérations à valeurs (numUn = 1, numDix = 10, ...).

[WebPac]

Ah d'accord, ben parfait alors.
PS : j'ai jamais changé les valeurs associées aux énumérés, je n'en vois pas l'utilité en fait.