Tipos enumerados - conversión a una cadena

Tipos enumerados - conversion a una cadena

Tipos enumerados - conversion a una cadena : Multi-millones de consejos para hacer su vida mas facil.

se Muestra como convertir una Eumerated Tipos de cadena.
Las funciones siguientes demuestran como convertir un enumerados
tipo de una cadena y viceversa utilizando GetEnumName y GetEnumValue.
Estas funciones necesitan ser re-creado para cada tipo enumerado por
cambiar el nombre de la funcion y los tipos de parametro.
Usted necesitara incluir TypInfo.pas en la clausula uses.
(* Para la demostracion de los efectos de la creacion de un tipo dummy *)
tipo
& nbsp & nbsp TSuit = (Corazones, Diamantes, treboles, Picas)
funcion SuitToString(Traje: TSuit): string
begin
& nbsp & nbsp Resultado := GetEnumName(TypeInfo(TSuit), Ord(Suit))
fin
funcion StringToSuit(Traje: string): TSuit
begin
& nbsp & nbsp Resultado := TSuit(GetEnumValue(TypeInfo(TSuit), Palo))
fin
( * ) Esta funcion convierte un Delphi tipo *)
funcion PositionToString(Posicion: TPosition): string
begin
& nbsp & nbsp Resultado := GetEnumName(TypeInfo(TPosition), Ord(Posicion))
fin

uso De la funcion(*DS*)s por encima de soltar un TButton en un formulario y
agregue el codigo siguiente al controlador de eventos OnClick. Esto le
mostrar una serie de messagebox(*DS*)s con convertida tipos de cadenas de caracteres.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp s: TSuit
begin
& nbsp & nbsp s := Corazones
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := Diamantes
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := Clubes
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := Picas
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp s := StringtoSuit((*DS*)Corazones(*DS*))
& nbsp & nbsp ShowMessage(SuitToString(s))
& nbsp & nbsp ShowMessage(PositionToString(Posicion))
fin