Enumerationstyp TFont.Style in XML-Datei speichern

[Luckie]

Wie kann ich einen Enumerationstypen, speziell geht es um TFont.Style, in einer XML-Datei speichern? Desweiteren muss ich die Ausrichtung eines Textes TAlignment abspeichern. Wobei das wohl nur ein Integer ist. Aber wie geht das mit dem Enumerationstyp?

[Gruber_Hans_12345]

entweder per RTTI den Text rausholen (müsste mal gucken wie das geht), oder einfach in einen integer kopieren(per CopyMemory oder Move) und dann 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.

[SirThornberry]

prüfe nicht mit "=" sondern mit "in" ansonsten ist die Bedingung ja nur war wenn genau dieses Attribut und kein anderes gesetzt ist.

[Luckie]

Das hab eichmir auch schon überlegt:
if ObjFontStyles[i] in fsBold then Fehlermeldung:

Zitat:

[Pascal Error] SaveLoadCls.pas(324): E2015 Operator not applicable to this operand type

Auch mit eckigen Klammern im das Attribut geht es nicht.

[Gruber_Hans_12345]

if fsBold in ObjFontStyles[i] then so sollte es gehen ... (wie genau ist ObjFontStyles deklariert?)

[Luckie]

Also das ganze umdrehen? Dann geht es anscheinend.

ObjFontStyles ist vom Typ TFontStyles.

Aber ich habe eine noch etwas elegantere Lösung gefunden: http://www.delphipraxis.net/internal...=672487#672487 Nur funktioniert diese noch nicht so richtig.

[SirThornberry]

das einfachste ist TFontStyle zu casten. Jetzt wirst du sofort sagen das da die Meldung "invalid Typecast" kommt. Aber diese kommt nur wenn du es auf Integer casten willst. Wenn du es auf Byte castest geht es da TFontStyles nur 1 Byte groß ist.

[Gruber_Hans_12345]

eventuell kannst du mit meinem testbeispiel was anfangen ....

Delphi-Quellcode:

uses
    TypInfo
    ;

...

var
    T               : PTypeData;
    i               : integer;
begin
    T   := GetTypeData(TypeInfo(TFontStyle));
    for i:=T^.MinValue to T^.MaxValue do
        if TFontStyle(i) in Font.Style then
            Memo1.Lines.Add(IntToStr(i) + ' ... '+GetEnumName(TypeInfo(TFontStyle), i));
end;

Liste die gesetzten FontStyle des aktuellen Forms auf.

[Luckie]

Besten Dank, aber ich verwende jetzt die Lösung von Motzi aus dem anderen Thread. Das geht wunderbar.