Enumerationstyp TFont.Style in XML-Datei speichern

[Luckie]

Das ist mir etwas zu unschön. Ich versuche es jetzt so:

Delphi-Quellcode:

          if ObjFontStyles[i] = fsBold then
            AddAttribute(XMLDoc, XMLNode, 'bold', '1')
          else
            AddAttribute(XMLDoc, XMLNode, 'bold', '0');
          if ObjFontStyles[i] = [fsItalic] then
            AddAttribute(XMLDoc, XMLNode, 'italic', '1')
          else
            AddAttribute(XMLDoc, XMLNode, 'italic', '0');
          if ObjFontStyles[i] = [fsUnderline] then
            AddAttribute(XMLDoc, XMLNode, 'underline', '1')
          else
            AddAttribute(XMLDoc, XMLNode, 'underline', '0');

Allerdings ist klappt das nicht so ganz, denn obwohl die Stile gesetzt sind, bleiben die Werte null.