TOLEEnum Umwandlung aus String

[Humbucker]

Hallo Uwe,

ich habe deinen Code ausprobiert und bin dabei auf folgendes Problem bei der Rückwandlung des TOLEEnum in einen String gestoßen. Bei der Verwendung der Funktion GetasString wird die als TCountryCode gecastete Variable von CountryCode2 übergeben (CountryCode2_DE = 17477).

Zitat von Uwe Raabe:

Delphi-Quellcode:

function TCountryCodeHelper.GetAsString: string;
begin
  Result := TRttiEnumerationType.GetName<TCountryCode>(Self); --> liefert falsche Werte, da Self keinen Indexwert von TCountryCode darstellt
end;

Das funktioniert leider nicht (allerdings ohne Fehlermeldung bei der Ausführung), da der Wertebereich von TCountryCode überschritten wird. Gebe ich einen gültigen Indexwert von TCountryCode in die Funktion (CountryCode_DE = 15) erhalte ich das gewünschte Ergebnis.

Als Alternative hatte ich mir folgenden Code überlegt (ich habe die Variablen cOLEEnums umbenannt)

Delphi-Quellcode:

function TCountryCodeHelper.GetCountryAsString: string;
begin
  Result := 'CountryCode_unk';
  for var idx := Low(cCountryEnums) to High(cCountryEnums) do begin
    if cCountryEnums[idx] = Cardinal(Self) then begin
      Result := TRttiEnumerationType.GetName<TCountryCode>(idx);
      break;
    end;
  end;
end;

Da Cardinal(Self) mit dem Wert 69 in der Funktion ankommt, ist eine Iteration mit Vergleich über cCountryEnums nicht möglich. Wie kann ich den ursprünglich übergebenen Wert 17477 der Funktion erhalten? Vielen Dank.

VG Michael