Automatischer Setter/Getter für Aufzählungs-Variablen via RTTI?

[freimatz]

Berücksichtige lieber das:

Zitat:

Zitat von Stevie (Beitrag 1383530)

IMO solltest du lieber das eigentliche Problem lösen, nämlich, dass du für eine begrenzte Menge an Möglichkeiten (enum) eine Eigenschaft vom Typ string hast und nicht vom Typ deines enums.

Trotzdem noch etwas zu deiner Frage - klar, kann man irgendwie mit RTTI drauf schießen, ist aber imo unnötig. Delphi bietet die Möglichkeit, konstane statische Arrays über einen Enum zu definieren.

Delphi-Quellcode:

uses
  StrUtils,
  SysUtils;

type
  TPet = (Hund,Katze,Maus);

const
  CPetNames: array[TPet] of string = ('Hund','Katze','Maus');

function TryGetEnumValue(const s: string; out value: TPet): Boolean;
var
  i: Integer;
begin
  i := IndexText(s, CPetNames);
  Result := i > -1;
  if Result then
    value := TPet(i);
end;

Das ganze kann man natürlich auch generisch und über RTTI lösen, aber dann muss man sich was überlegen, ob aus dem enum Wert die entsprechenden Namen zu ermitteln, sollten die mal nicht 1-zu-1 zusammen passen oder lokalisierbar sein.

Aber nochmal, ich würd lieber mit dem enum Typ arbeiten und erst dort, wo man einen string benötigt (z.B. in der UI) umwandeln. Ansonsten hat man ein "stringly typed" System.

Das andere ist Murks.

[bepe]

Bei meinen JSON Schnittstellen mache ich ähnliches. Erstmal alles in Objekt Form bringen und dann diese Objekte verarbeiten. Dabei dienen diese Objekte nur der temporären Datenhaltung und zur Typumwandlung. Mit Enums verfahre ich so:

Delphi-Quellcode:

  // uses System.RTTI, System.TypInfo;
  // FFeld = String
  // TEnum = (enEins, enZwei, enDrei);

  { Getter }
  tmpType := TypeInfo(TEnum); // tmpType = PTypeInfo
  Result := TValue.FromOrdinal(tmpType, GetEnumValue(tmpType, 'en'+ FFeld)).AsType<TEnum>;

  { Setter }
  FFeld := TValue.From<TEnum>(Value).ToString; // Value = TEnum
  FFeld := Copy(FFeld, 3, Length(FFeld));

[smallie]

Zitat:

Zitat von freejay (Beitrag 1383534)

Was mich an dieser (und erst recht an meiner) Lösung trotzdem noch stört, ist, dass ich quasi die gleichen Texte zweimal (bei mir: drei mal) im Code aufführen und ergänzen muss (Hund und 'Hund')...

So vielleicht:

Delphi-Quellcode:

type

  TDataType = (dtString, dtInteger, dtFloat, dtCurrency, dtDate, dtBoolean);

  //erlaubt die Umwandlung von Aufzählungen in Strings und zurück
  TEnumHelper = class
  private
    FEnumInfo: PTypeInfo;
    FPrefix: string;
  public
    Constructor Create(AEnumTypeInfo: PTypeInfo; Prefix: string);
    function ToString(const EnumValue): string;
    function ToEnum(Name: string): integer;
  end;


implementation

////////////////////////////////////////////////////////////////////////////////
//
// TEnumHelper
//
////////////////////////////////////////////////////////////////////////////////

constructor TEnumHelper.Create(AEnumTypeInfo: PTypeInfo; Prefix: string);
begin
  FEnumInfo := AEnumTypeInfo;
  FPrefix := Prefix;
end;

function TEnumHelper.ToEnum(Name: string): integer;
begin
  Name := FPrefix + Name;
  Result := GetEnumValue(FEnumInfo, Name);
end;

function TEnumHelper.ToString(const EnumValue): string;
begin
  Result := GetEnumName(FEnumInfo, ord(TOrdType(EnumValue)));
  System.Delete(Result, 1, Length(FPrefix));
end;

Delphi-Quellcode:

//Erzeugen mit Angabe des Prefixes. Wird entfernt oder hinzugenommen.
var
  DataTypes      : TEnumHelper;
begin
  DataTypes      := TEnumHelper.Create(TypeInfo(TDataType)    , 'dt');
end;


//Verwendung
var
  DataTypeName: string;
  DataType: TDataType;
begin
  DataType := TDataType(DataTypes.ToEnum(DataTypeName);
  DataTypeName := DataTypes.ToString(DataTypEnum);
end;

[freejay]

smallie: Das sieht auch ganz interesant aus, vielen Dank!