Ich möchte gerne anhand eines Strings das passende Enum als Funktions-Resultat zurückbekommen.

Dazu habe ich diese Funktion hier

zusammenfalten · markieren

Delphi-Quellcode:

class function TEnumFunctions.GetValue<T>(AValue: string): T;
var
 Tipo: PTypeInfo;
 Temp: Integer;
 PTemp: pointer;
begin
 Tipo := TypeInfo(T);
 Temp := GetEnumValue(Tipo, AValue);
 PTemp := @Temp;
 Result := T(PTemp^);
end;

Aufruf

markieren

Delphi-Quellcode:

var
 xyz: TMeinEnum;
begin
 xyz := TEnumFunctions.GetValue('meTest');

Als Fehlermeldung erhalte ich

Zitat:

E2531 Methode 'GetValue' erfordert explizite Typargumente

Leider verstehe ich diese Meldung nicht so richtig. Der Originalcode hatte einen Var-Parameter im Kopf der Prozedur. Also dachte ich mache ich daraus eine Funktion mit Rückgabewert T.
Ging wohl in die Hose

Ich kenn mich ja mit Generics nicht aus, aber du musst dem Compiler doch verraten, welchen Typ du erwartest. Sowas wie:
xyz := TEnumFunctions.GetValue<TMeinEnum>('meTest');

Zitat von a.def:

Ich möchte gerne anhand eines Strings das passende Enum als Funktions-Resultat zurückbekommen.

Gibt's doch schon fertig: TRttiEnumerationType.GetValue<T>(<Name>)

Mh ich glaube ich stelle mich zu doof an.

markieren

Delphi-Quellcode:

class function TEnumFunctions.GetValueX<T>(AValue: string): T;
begin
 Result := System.Rtti.TRttiEnumerationType.GetValue<T>(AValue);
end;

Umgekehrt klappt es wunderbar

markieren

Delphi-Quellcode:

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

Zitat von a.def:

Mh ich glaube ich stelle mich zu doof an.

Wie meinst du das? Das compiliert doch beides.

Hab mich extrem doof angestellt und was vergessen deswegen klappte es nicht.

 xyz := TEnumFunctions.GetValueX<TIntervalModes>('meTest'); // <TIntervalModes> vergessen! Nur eine Frage habe ich noch.

Wenn "meTest" nicht zugeordnet werden kann, wird standardmäßig 255 zurückgegeben. Wie kann ich das prüfen und ggf. 0 zurückgeben?
Bei diesem "Fertig-Code" mit ein paar Zeilen mehr (siehe erster Beitrag) ist Temp in dem Fall -1 und das kann man prüfen.

Zitat von a.def:

Wenn "meTest" nicht zugeordnet werden kann, wird standardmäßig 255 zurückgegeben.

Wie ermittelst du das? Bei mir liefert ord(myEnum) auch -1;

markieren

Delphi-Quellcode:

type
  TMyEnum = (one, two, three);

var
  temp: TMyEnum;
begin
  temp := TEnumFunctions.GetValueX<TMyEnum>('Hallo?');
  Writeln(Ord(temp));
end;

Intern wird auch hier -1 zurückgegeben. Durch den Cast auf Byte (vermutlich passt der Enum da rein) wird daraus halt 255.

Zitat von Uwe Raabe:

Wie ermittelst du das? Bei mir liefert ord(myEnum) auch -1;

Mit meiner alten Prozedur werte ich Temp aus

zusammenfalten · markieren

Delphi-Quellcode:

class function TEnumFunctions.GetValue<T>(AValue: string): T;
var
 Tipo: PTypeInfo;
 Temp: Integer;
 PTemp: pointer;
begin
 Tipo := TypeInfo(T);
 Temp := GetEnumValue(Tipo, AValue);
 if Temp < 0 then
  Temp := 0;
 PTemp := @Temp;
 Result := T(PTemp^);
end;

Das geht mit TRttiEnumerationType.GetValue<T> natürlich nicht (also innerhalb der Funktion GetValueX), weil man dort den Enum-Typ nicht kennt.