Advanced RTTI und Set's

[Ghostwalker]

Moinmoin,

ich hoffe mal, mir kann jemand helfen :)

Ich habe verschiedene Set's, die ich via RTTI aufdrösel:

Beispiel SET:

Delphi-Quellcode:

   TMyEnum = (meElement1,meElement2,meElement3,meElement4);
   TMySet = Set of TMyEnum;

Aufgedröselt wird das ganze in eine kleine Zeigerkette:

Delphi-Quellcode:

    PMYTYPE = ^TMYTYPE;
    TMYTYPE = Record
                Display : String; //Bezeichnung
                Value   : TValue; //Wert
                  :
                  :
                FirstChild : PMYTYPE;
                Next : PMyType; 
    end;

Was grob sowas ergibt:

MySetType
|
-- Element1 : boolean
-- Element2 : boolean;
:

Soweit funktioniert das ganze auch wunderbar. Problem ist nun, wenn ein Element auf True oder False gesetzt wird (bei den Aufgedröselten) muss das entsprechende Element auch im Set gesetzt bzw. gelöscht werden.

Da ich den konkreten Type des Sets bzw. Enums nicht hab, muss ich das ganze auch wieder über die RTTI machen, allerdings fehlt mir hier grad ein wenig der Ansatz, wie ich das machen muss. Weiß hier jemand Rat ?

[Ghostwalker]

Gelöst:

Zuerst aus den gesetzten Teilen einen String im Format '[Wertname1,Wertname2]'.

Delphi-Quellcode:

function SetStrToValue(SetTypeName:string;value:string):TValue;
var
  ctx : TRttiContext;
  t   : TRttiType;

begin
  t := ctx.FindType(SetTypeName);
  if (t <> NIL) then
    result := TValue.Make(StringToSet(t.handle,value),t.handle,result)
 else
   Raise Exception.create('Settype not found !');
end;

Wichtig dabei ist das TValue.Make, ansonsten wird nämlich der Typ von TValue auf tkInteger gesetzt und auch als Integer behandelt, statt als Set :)