Enumerationstyp TFont.Style in XML-Datei speichern

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