Enum zu String: eine Funktion für mehrere Enums?

[a.def]

Ich arbeite mittlerweile sehr viel mit Enums. Die sind einfach wesentlich komfortabler als Arrays. Man kann z.B. auf MeinEnum.MeinWert zugreifen als auf MeinArray[0]. Ließt sich wesentlich einfacher und außerdem bin ich an keine feste Reihenfolge der Enum-Werte gebunden.

Mit folgender Funktion wandle ich einen Enum in einen String um:

Delphi-Quellcode:

class function TEnumFunctions.EnumGetNameString(const aEnumVal: TIniProgramSettings_Sections): string;
var
 bVal: Byte;
begin
 Move(aEnumVal, bVal, SizeOf(TIniProgramSettings_Sections));
 Result := GetEnumName(TypeInfo(TIniProgramSettings_Sections), bVal);
end;

Davon habe ich mittlerweile acht Funktionen.
Ist es irgendwie möglich nur eine einzige Funktion für alle Enums zu haben statt für jeden Enum-Typen eine?

[Stevie]

System.Rtti.TRttiEnumerationType.GetName

[Delphi-Laie]

Zitat:

Zitat von a.def (Beitrag 1364001)

Man kann z.B. auf MeinEnum.MeinWert zugreifen als auf MeinArray[0].

?

Fehlt doch irgendein Wort.

Zitat:

Zitat von a.def (Beitrag 1364001)

Ist es irgendwie möglich nur eine einzige Funktion für alle Enums zu haben statt für jeden Enum-Typen eine?

Überladen, also "overload" verwenden?

[a.def]

Zitat:

Ist es irgendwie möglich nur eine einzige Funktion für alle Enums zu haben statt für jeden Enum-Typen eine?

Du hast mich nicht verstanden :P
Ich habe schon 8 dieser Funktionen, selbstverständlich mit Overload. Aber mein Ziel ist es nur eine einzige Funktion zu haben der ich jegliche Enums übergeben kann.

Zitat:

System.Rtti.TRttiEnumerationType.GetName

Genau was ich gesucht habe!

Delphi-Quellcode:

// uses Generics.Collections, System.Rtti

class function TEnumFunctions.Test<T {: enum} >(AValue: T): string;
begin
 Result := System.Rtti.TRttiEnumerationType.GetName(AValue);
end;