Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Set of Enumeration Type in Datenbank-Parameter zuweisen

  Alt 10. Jun 2014, 13:38
Ich würde es als String in die Datenbank speichern. Wenn da später jemand draufguckt, könnte man noch eine ungefähre Vorstellung dafür bekommen, was das ist.

Abgesehen davon- Kannst du deinem Enum nicht eine Helfer-Methode verpassen?

Delphi-Quellcode:
type
   TMeinEnum = (Hund, Katze, Maus);

   TMeinEnumHelper = record helper for TMeinEnum
      function ToString(): String;
      function ToInteger(): Integer;
      // function ToField(): TField // oder so ähnlich?
   end;
   
implementation uses System.TypInfo;

function TMeinEnumHelper.ToString(): String;
begin
   Result := GetEnumName(
      TypeInfo(TMeinEnum), // Den Namen hier nochmal manuell zu nennen muss wohl...
      Ord(self)
   );
end;

function TMeinEnumHelper.ToInteger(): Integer;
begin
   Result := Ord(self);
end;
  Mit Zitat antworten Zitat