Einzelnen Beitrag anzeigen

Humbucker

Registriert seit: 8. Feb 2013
Ort: im Lahntal
35 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: TOLEEnum Umwandlung aus String

  Alt 8. Nov 2024, 14:36
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.

Geändert von Humbucker ( 8. Nov 2024 um 15:20 Uhr)
  Mit Zitat antworten Zitat