快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

澳门巴黎手机客户端下载_集报网



前不久我编写一个小法度榜样在INI文件中记录字体的属性(颜色值/color,大年夜小/size,字体名/name,样式/style),此中color值和size值可以用数值要领写入INI文件,name是用字符要领写入,但Font.style不是数值型、字符型,也不是布尔型,而是TfontStyles类,澳门巴黎手机客户端下载无法直接写入INI文件中去,我找了很多多少相关册本也没找到措施,也到收集上的Delphi站点去问,也没获得知足的回复,没办法,看来还得自已设法主见子办理,我经由过程一系列的摸索实验,终于找到了对照知足的办理措施,法度榜样代码如下:

1、先在uses中加入 inifiles;

2、定义变量

var

Mystyle : string;

Myini : inifile;

3、写

begin

Mystyle := [;

Myini := TInifile.Create (inifile.ini);

with FontDialog.Font do

begin

if fsBold in Style then MyStyle := MyStyle + fsBold;

if fsItalic in Style then

if MyStyle = [ then

MyStyle := MyStyle + fsItalic

else

MyStyle := MyStyle + ,fsItalic;

if fsUnderline in Style then

if MyStyle = [ then

MyStyle := MyStyle + fsUnderline

else

MyStyle := MyStyle + ,fsUnderline;

if fsStrikeOut in Style then

if MyStyle = [ then

MyStyle := MyStyle + fsStrikeOut

else

MyStyle := MyStyle + ,fsStrikeOut;

MyStyle := MyStyle + ];

end;

Myini.WriteString (FontStyle, style, MySt澳门巴黎手机客户端下载yle);

Myini.free;

End;

4、读:

var

MyFontStyle : TFontStyles;

MyStyle : string;

begin

MyFontStyle := [];

Myini := TInifile.Create (inifile.ini);

Mystyle := 澳门巴黎手机客户端下载Myini.ReadString (Fontstyle, style, []);

if pos (fsBold, Mystyle) $#@62; 0 then MyFontStyle := MyFontStyle + [fsBold];

if Pos (fsItalic, MyStyle) $#@62; 0 then MyFontS澳门巴黎手机客户端下载tyle := MyFontStyle + [fsItalic];

if Pos (fsUnderline, MyStyle) $#@62; 0 then

MyFontStyle := MyFontStyle + [fsUnderline];

if (fsStrikeOut, MyS澳门巴黎手机客户端下载tyle) $#@62; 0 then

MyFontStyle := MyFontStyle + [fsStrikeOut];

FontDialog.Font.Style := MyFontStyle;

MyIni.free;

end;

以上代码在Delphi 4.0 运行经由过程。

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: