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?

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

markieren

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.

markieren

Delphi-Quellcode:

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

Hallo s.h.a.r.k,

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

Danke für die Hilfe

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).