Variable vom Typ "TFontStyles" in Ini speichern

[Helmi]

Hallo,

wie könnte ich am Besten und am Einfachsten eine Variable vom Typ "TFontStyles"
in einer Ini-Datei speichern?

[toms]

ungetestet:

Delphi-Quellcode:

var
  fs : Longint;

Delphi-Quellcode:

 
// schreiben:
  fs := Byte(Font.Style);
  IniFile.WriteInteger('Font', 'Style', fs);
// lesen:
  fs := IniFile.ReadInteger('Font', 'Style', 0);
  Font.Style := TFontStyles(Byte(fs));

[Helmi]

Danke!

Ich hab zwar einen Versuch mit einem Cast auf Integer gemacht, aber nicht auf Byte.
Und mit Integer hats nicht funktioniert.

[himitsu]

Wenn durch {$MinEnumSize} TFontStyle auf Integergröße gebracht würde, dann ginge es auch mit Integer

ansonsten muß einfach nur die Größe des IntegerTyps der Größe des anderen Typs entsprechen
SizeOf(Byte) = SizeOf(TFontStyle)

Delphi-Quellcode:

// schreiben:
IniFile.WriteInteger('Font', 'Style', Byte(Font.Style));
// lesen:
Font.Style := TFontStyles(Byte(IniFile.ReadInteger('Font', 'Style', 0));


// schreiben: man könnte hier auch notfalls Ord verwenden
IniFile.WriteInteger('Font', 'Style', Ord(Font.Style));

[Helmi]

Danke
ich habs jetzt mit nem Byte gemacht