Eigenen Typ in string umwandeln

[Nick Phoenix]

Hallo Leude :hi:

in meinem programm habe ich einen eigenen Typen erstellt. Die Werte, die dieser typ annehmen kann besteht aus jeweils fünf Buchstaben z. B. ABCDE . Bei einer ausgabe in ein Editfeld meckert der compiler natürlich inkompatible typen. Gibt es eine möglichkeit die werte meines types in string umzuwandeln?

[nailor]

schreib ne Procedure / Property, die deine Buchstaben als String zurückgeben!

[Nick Phoenix]

Das ganze steht in der Typendeklaration der UNIT

Delphi-Quellcode:

type
  TGebauede = (CONSTY, POWERP, BIODO, REFFI, OILRI, BARRA, LIFAC, RADAR, AKADE, REPAD, SAIRP, SHELP, SLABO, SABAG, MGTUR, LIFLA, HEFAC, MACDO, BAIRP, AHELP, ALABO, SPYCE, EMPKA, STECH, FDEFE, LPTUR, RBTUR, HEFLA, TABAR, EAKAD, HIFAC, SPACP, SUPER, SDIDE, SHIEL, DEFWA, ROTUR, PLTUR, RAILT);

Wie sähe denn jetzt eine Procedure aus, mit der ich die Werte in strings umwandeln kann?

[AnTiPrimaTe]

Hallo Nick Phoenix,

du kannst das mit GetEnumName machen:

Code:

uses 
 TypInfo;
...
var
 geb : TGebauede;
begin
 geb:=CONSTY;
str:=GetEnumName(TypeInfo(TGebauede),integer(geb));
end;