Eigene Typen nach Integer casten?

[Bbommel]

Delphi-Quellcode:

function UpdateEventsToString(UpdateEvent:TPJUpdateEvents):string;
begin
  Result:=GetEnumName(TypeInfo(TPJUpdateEvents), Integer(UpdateEvent));
end;

Autor unbekannt - hatte ich auch mal irgendwann hier gefunden.

Bis denn
Bommel