Enumerationstyp TFont.Style in XML-Datei speichern

Thema durchsuchen

Ansicht

Themen-Optionen

Enumerationstyp TFont.Style in XML-Datei speichern

Ein Thema von Luckie · begonnen am 14. Feb 2007 · letzter Beitrag vom 14. Feb 2007

Vorheriger Beitrag

Nächster Beitrag

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.441 Beiträge

Delphi 2007 Professional

Re: Enumerationstyp TFont.Style in XML-Datei speichern

14. Feb 2007, 11:23

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

zusammenfalten · markieren

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.