如何将TFont.style, TFont.Charset保存到*.ini文件？(10分)

我想将TEdit的字体在下次程序启动时保持上次的属性!

TFont.style
可以保存为一个整数:
以下是TFontStyle与Byte整数相互转换的函数.
function FontStyleToByte(FontStyle:TFontStyles):Byte;
Var iointer;
begin
i:=AllocMem(SizeOf(TFontStyles));
Byte(i^):=0;
TFontStyles(i^):=FontStyle;
Result:=Byte(i^);
FreeMem(i,SizeOf(TFontStyles));
end;

function ByteFontStyleTo(Int:Byte):TFontStyles;
Var iointer;
begin
i:=AllocMem(SizeOf(Byte));
TFontStyles(i^):=[];
Byte(i^):=Int;
Result:=TFontStyles(i^);
FreeMem(i,SizeOf(Byte));
end;

TFont.Charset本身就是整数:在Graphics单元中:
TFontCharset = 0..255;
直接当作整数写就可以了!

rx控件包有保存控件属性的东东，很好用的。

Thanks aizb / pnljh!