Aufzählungstypen - Konvertierung in eine Zeichenfolge

Aufzählungstypen - Konvertierung in eine Zeichenfolge

Aufzählungstypen - Konvertierung in eine Zeichenfolge : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Veranschaulicht, wie ein Eumerated-Typen in eine Zeichenfolge konvertieren.
Die folgenden Funktionen veranschaulichen, wie ein numerisches konvertieren
Geben Sie eine Zeichenfolge und umgekehrt mit GetEnumName und GetEnumValue.
Diese Funktionen müssen für jeden aufgelisteten Typs durch neu erstellt werden
ändern die Funktion Namen und Parameter-Typen.
Sie müssen TypInfo.pas in die Uses-Clausel aufnehmen.
(* Für Demo-Zwecke Erstellen eines Dummy-Typs *)
Typ
TSuit = (Herz, Karo, Clubs, Pik);
Funktion SuitToString(Suit: TSuit): string;
beginnen
Ergebnis: = GetEnumName(TypeInfo(TSuit), Ord(Suit));
Ende;
Funktion StringToSuit(Suit: string): TSuit;
beginnen
Ergebnis: = TSuit(GetEnumValue(TypeInfo(TSuit), Anzug));
Ende;
(* Diese Funktion wandelt einen vorhandenen Typ Delphi *)
Funktion PositionToString(Position: TPosition): string;
beginnen
Ergebnis: = GetEnumName(TypeInfo(TPosition), Ord(Position));
Ende;

Verwenden der Function(*DS*) s oben drop einen TButton auf ein Formular und
Fügen Sie den folgenden Code an den OnClick-Ereignishandler. Dies wird
zeigen eine Reihe von Messagebox(*DS*) s mit konvertierten Typen als Zeichenfolgen.
Prozedur TForm1.Button1Click(Sender: TObject);
var
s: TSuit;
beginnen
s: = Herz;
ShowMessage(SuitToString(s));
s: = Karo;
ShowMessage(SuitToString(s));
s: = Clubs;
ShowMessage(SuitToString(s));
s: = Spaten;
ShowMessage(SuitToString(s));
s: = StringtoSuit((*DS*)Hearts(*DS*));
ShowMessage(SuitToString(s));
ShowMessage(PositionToString(Position));
Ende;