Les types énumérés conversion d'une chaîne de caractères

Les types enumeres conversion d'une chaîne de caracteres

Les types enumeres conversion d'une chaîne de caracteres : Plusieurs milliers de conseils pour vous faciliter la vie.

Montre comment convertir un Eumerated Types de chaînes de caracteres.
Les fonctions suivantes illustrent comment faire pour convertir un enumeres
type d'une chaîne de caracteres et vice versa a l'aide de GetEnumName et GetEnumValue.
Ces fonctions doivent etre re-cree pour chaque type enumere par
changer le nom de la fonction et des types de parametres.
Vous aurez besoin d'inclure TypInfo.pas dans la clause uses.
(* a des fins De demonstration de la creation d'un mannequin de type *)
type
& nbsp & nbsp TSuit = (Cœur, carreau et trefle, Pique)
fonction de SuitToString(Suit: TSuit): string
begin
& nbsp & nbsp Resultat := GetEnumName(TypeInfo(TSuit), Ord(Costume))
fin
fonction de StringToSuit(Suit: string): TSuit
begin
& nbsp & nbsp Resultat := TSuit(GetEnumValue(TypeInfo(TSuit), la couleur))
fin
( * ) Cette fonction vous convertir un Delphi type *)
fonction de PositionToString(Position: TPosition): string
begin
& nbsp & nbsp Resultat := GetEnumName(TypeInfo(TPosition), Ord(Position))
fin

Pour utiliser la fonction(*DS*)s au dessus de deposer un TButton sur la forme et
ajoutez le code suivant a son gestionnaire d'evenement OnClick. Ce sera
afficher une serie de messagebox(*DS*)s, avec converti types de chaînes de caracteres.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp s: TSuit
begin
& nbsp & nbsp s := Cœurs
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := Diamants
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := Les Clubs
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := Pique
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := StringtoSuit((*DS*)Cœur(*DS*))
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp ShowMessage(PositionToString(Position))
fin