Hallo Uwe,
Hintergrund der ganzen Geschichte ist die Verwendung eines
COM Interface. Der Ländercode aus dem TOLEEnum CountryCode2 (definiert im Interface) wird dem Property
Country des Interface
eiAdrr zugewiesen.
eiAddr.Country := TEnumUtils.GetCountryCode2FromString<TCountryCode>('CountryCode_DE'))); //TOLEEnum;
Zur Kontrolle der Datenaufbereitung wird CodeSite verwendet. Hierbei soll der Wert von eiAdr.Country wieder in einen lesbaren String umgewandelt werden.
CodeSite.Send(csmInfo, 'Country: ' + TCountryCode(eiAddr.Country).AsString);
Mit "casten" meine ich diesen Vorgang: TCountryCode(eiAddr.Country). Nutze ich eine falsche Vokabel?
Nachdem ich diese Zeilen geschrieben habe, hat es Klick gemacht und ich habe verstanden, warum es nicht funktioniert. Daraufhin habe ich noch eine Funktion geschrieben, die den Index von CountryCode2 bestimmt. Der Aufruf zur Umwandlung sieht dementsprechend jetzt wie folgt aus:
CodeSite.Send(csmInfo, 'Country: ' + TEnumUtils.GetStringfromCountryCode2(eiAddr.Country));
Delphi-Quellcode:
class function TEnumUtils.GetStringfromCountryCode2(aValue: cardinal) : string;
begin
Result := 'CountryCode_unk';
for var idx := Low(TCountryCode.cCountryEnums) to High(TCountryCode.cCountryEnums) do begin
if TCountryCode.cCountryEnums[idx] = aValue then begin
Result := TCountryCode(idx).AsString;
break;
end;
end;
end;
... und kaum macht man es richtig, schon funktioniert es.
Nochmal Danke für deine Unterstützung.
VG Michael
Michael H.