Set als Attribut in xml File speichern

[runner]

Hallo zusammen,

steh grade ein bisschen auf dem Schlauch. Mein Problem ist das ich ein Set in der Art

TPointState = set of (psUnknown, psNormal, psPaused, psDeleted, psInsert ...);

als Attribut in einem xml File speichern will. Das speichern von TPointState geht natürlich nicht direkt. Muss ich das Set eineln zerpflücken oder gibt es eine elegantere Methode hierfür?

[s.h.a.r.k]

Du kannst das Ding als Byte speichern, da ein Enum nichts anderes als ein Byte ist, ebenso eine Menge.

Delphi-Quellcode:

var
  EnumValue : TPointState ;
  ByteValue : Byte;
begin
  EnumValue := [];
  ByteValue := Byte(EnumValue);
  // ByteValue = 0;
end;

PS: Du kannst auch die SetToString-Methode aus der Unit TypInfo nutzen.

Delphi-Quellcode:

var
  TI : PTypeInfo;
  PS : TPointState;
begin
  TI := TypeInfo(TPointState);
  Writeln(SetToString(TI, Byte(PS), True));
end;

[runner]

Hallo s.h.a.r.k,

so einfach können Lösungen sein...

Danke für die Hilfe

[Codewalker]

Zitat von s.h.a.r.k:

PS: Du kannst auch die SetToString-Methode aus der Unit TypInfo nutzen.

Wobei man mit den TypInfos böse auf die Nase fallen kann: Wenn man den einzelnen Werten manuell Zahlen zuordnet
TPointState = set of (psUnknown = 0, psNormal = 1, psPaused = 12, psDeleted = 42, psInsert = 50 ...); , so bekommt das Set (warum auch immer) keine TypeInfos mehr und man kann es auf diese Weise nicht ermitteln (Danke nochmal an himitsu, der mir da echt graue Haare erspaart hat).