EmKa69
Messages postés10Date d'inscriptionmardi 30 septembre 2008StatutMembreDernière intervention 3 décembre 2009
-
2 déc. 2009 à 15:35
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
5 déc. 2009 à 00:08
Bonjour à tous,
je sauvegarde des variables de type enum dans un fichier texte en les convertissant en chaine.
avec le code suivant:
procedure Save(NomFichier:string);
var F:TextFile;
begin
AssignFile(F,NomFichier);
Rewrite(F);
writeln(F,
GetEnumName(typeInfo(TTypeEnum1),integer(VarEnum1))+' '+
GetEnumName(typeInfo(TTypeEnum2),integer(VarEnum2))+' '+
GetEnumName(typeinfo(TTypeEnum3),integer(VarEnum3))+' '+
GetEnumName(typeinfo(TTypeEnum4),integer(VarEnum4)));
CloseFile(F);
end;
L'écriture se passe bien.
Pour la lecture j'utilise la procedure readln. Et je split la ligne en fonction du séparateur ' '.
Mon problème est que je ne sais pas reconvertir les chaines en enum.
Connaissez-vous une fonction que le fait?
Merci d'avance.
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 3 déc. 2009 à 00:33
Attention toutefois, les routines de fichier Pascal sont obsolètes (AssignFile, RewriteFile, TextFile, etc ...). Bien pour apprendre, mais maintenant il est recommandé d'utiliser TFileStream (ou TStringList). Tu verras c'est beaucoup plus simple et puissant