Generisches ToString für Enumerations

[daywalker9]

Ich habs so gelöst:

Delphi-Quellcode:

class function TEnumGen<T>.GetName(AVal: T): string;
var
  bVal : Byte;
begin
  move(AVal,bVal,SizeOf(T));
  Result:=GetEnumName(TypeInfo(T),bVal);
end;