Seriallisieren/Deseriallisieren von Enums via RTTI

[Uwe Raabe]

Zitat von Ghostwalker:

Bein Einlesen steh ich aber vor dem Problem, wie ich nun aus den Infos wieder ein TValue (oder TMyEnum01) mache, um das in der Field-List reinbekomme. Hat da jemand ne Idee ?

Wenn du weißt, daß der Typ TMyEnum01 ist, dann sollte es einfach so gehen:

  value := TValue.From<TMyEnum01>(TRttiEnumerationType.GetValue<TMyEnum01>('me1A'));

[Ghostwalker]

@TiGü
Nein, leider nicht (btw. auch kein DBExpress )

@Uwe
Jo, dann müsst ich aber eine Case machen (für jeden Enum-Typ).

Den Typ hab ich als String (weil ja aus Datei) vorliegen.

und bei

Delphi-Quellcode:

var
  tenumtypename : string;

begin
  value := TValue.From<tenumtypename>(TRttiEnumerationType.GetValue<tenumtypename>('me1A'));
end;

zeigt sich der Compiler leider von der störrischen Seite

[Zacherl]

Wie wäre es, wenn du Enums einfach genauso wie andere Ordinal-Typen behandelst? Sprich: Die Werte als Zahl abspeichern/auslesen.

[Ghostwalker]

Würde nix daran ändern. Früher oder Später muss ich auf den entsprechenden Enum-Type (den ich aber nur als String hab).


Edit:

Ok....es ändert sehr viel, wenn man das ganze mal richtig betrachtet Ich muss nur anhand des Enum-Type die
Größe feststellen und das ganze entsprechend casten (Byte,word..).

[Uwe Raabe]

Zitat von Ghostwalker:

Würde nix daran ändern. Früher oder Später muss ich auf den entsprechenden Enum-Type (den ich aber nur als String hab).

Ich kenne bislang auch keine Möglichkeit von einem String auf einen Enum-Type zu kommen, außer man hat den Namen der Unit, in der er deklariert ist. Dann könnte das so gehen:

Delphi-Quellcode:

var
  context: TRttiContext;
  rtype: TRttiType;
  value: TValue;
begin
  context := TRttiContext.Create;
  rtype := context.FindType('<unitname>.TMyEnum01');
  value := TValue.FromOrdinal(rtype.Handle, GetEnumValue(rType.Handle, 'me1A'));
end;

[himitsu]

Zitat von Ghostwalker:

Ich muss nur anhand des Enum-Type die
Größe feststellen und das ganze entsprechend casten (Byte,word..).

Ord

[Ghostwalker]

@Uwe

Jup....dat tut super und vielen Dank