Eigenen Typ in string umwandeln

[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;