Wäre es bei so vielen Komplikationen einen schönen Code zu bekommen nicht die einfachste Möglichkeit mehrere overloaded Funktionen zu fahren?
Wir wollten dich nicht verunsichern, sondern nur auf eine mögliche Gefahr hinweisen. Ich würde es trotzdem folgendermaßen lösen:
Delphi-Quellcode:
type
TEnumHelper<TEnum> =
record
public class function GetName(Value: TEnum):
String;
overload;
static;
end;
{ TEnumHelper<TEnum> }
class function TEnumHelper<TEnum>.GetName(Value: TEnum):
String;
var
TypInfo: PTypeInfo;
TypData: PTypeData;
V: Integer;
begin
TypInfo := TypeInfo(TEnum);
{$IFDEF DEBUG}
if (TypInfo^.Kind <> tkEnumeration)
then
begin
raise Exception.Create('
Invalid generic type.');
end;
{$ENDIF}
TypData := GetTypeData(TypInfo);
case TypData^.OrdType
of
otSByte,
otUByte:
V := PByte(@Value)^;
otSWord,
otUWord:
V := PWord(@Value)^;
otSLong,
otULong:
V := PInteger(@Value)^;
end;
Result := GetEnumName(TypeInfo(TEnum), V);
end;
Du solltest halt nur aufpassen, dass du dieser Klasse als Typ tatsächlich nur Enums übergibst und nichts anderes. Im Debug-Mode würdest du zwar im Zweifelsfalle eine Runtime-
Exception bekommen, aber bei Code-Pfaden, die nicht oft ausgeführt werden, entdeckt man so einen Laufzeitfehler teilweise erst recht spät.
Alternativ müsste auch das hier gehen:
Delphi-Quellcode:
class function TEnumHelper<TEnum>.GetName(Value: TEnum):
String;
var
TypInfo: PTypeInfo;
V: Integer;
begin
TypInfo := TypeInfo(TEnum);
{$IFDEF DEBUG}
if (TypInfo^.Kind <> tkEnumeration)
then
begin
raise Exception.Create('
Invalid generic type.');
end;
{$ENDIF}
case SizeOf(TEnum)
of
1: V := PByte(@Value)^;
2: V := PWord(@Value)^;
4: V := PInteger(@Value)^;
end;
Result := GetEnumName(TypeInfo(TEnum), V);
end;