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


Montre comment convertir un Eumerated Types de chaînes de caractères.
Les fonctions suivantes illustrent comment faire pour convertir un énumérés
type d'une chaîne de caractères et vice versa à l'aide de GetEnumName et GetEnumValue.
Ces fonctions doivent être re-créé pour chaque type énuméré par
changer le nom de la fonction et des types de paramètres.
Vous aurez besoin d'inclure TypInfo.pas dans la clause uses.
(* à des fins De démonstration de la création d'un mannequin de type *)
type
& nbsp & nbsp TSuit = (Cœur, carreau et trèfle, Pique)
fonction de SuitToString(Suit: TSuit): string
begin
& nbsp & nbsp Résultat := GetEnumName(TypeInfo(TSuit), Ord(Costume))
fin
fonction de StringToSuit(Suit: string): TSuit
begin
& nbsp & nbsp Résultat := TSuit(GetEnumValue(TypeInfo(TSuit), la couleur))
fin
( * ) Cette fonction vous convertir un Delphi type *)
fonction de PositionToString(Position: TPosition): string
begin
& nbsp & nbsp Résultat := GetEnumName(TypeInfo(TPosition), Ord(Position))
fin

Pour utiliser la fonction(*DS*)s au dessus de déposer un TButton sur la forme et
ajoutez le code suivant à son gestionnaire d'événement OnClick. Ce sera
afficher une série de messagebox(*DS*)s, avec converti types de chaînes de caractères.
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









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


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

Les types énumérés conversion d'une chaîne de caractères : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation