DELPHI技巧

痞大夫

痞大夫

2016-02-19 17:27

想要天天向上,就要懂得享受学习。图老师为大家推荐DELPHI技巧,精彩的内容需要你们用心的阅读。还在等什么快点来看看吧!

  在Delphi中实现将Font.Style写入INI文件

  前不久我编写一个小程序在INI文件中记录字体的属性(颜色值/color,大小/size,字体名/name,样式/style),其中color值和size值可以用数值方式写入INI文件,name是用字符方式写入,但Font.style不是数值型、字符型,也不是布尔型,而是TfontStyles类,无法直接写入INI文件中去,我找了好多相关书籍也没找到方法,也到网络上的Delphi站点去问,也没得到满意的答复,没法子,看来还得自已想办法解决,我通过一系列的摸索实验,终于找到了比较满意的解决方法,程序代码如下:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  1、先在uses中加入 inifiles;

  2、定义变量

  

varMystyle : string;Myini : inifile;3、写beginMystyle := [;Myini := TInifile.Create (inifile.ini);with FontDialog.Font dobeginif fsBold in Style then MyStyle := MyStyle + fsBold;if fsItalic in Style thenif MyStyle = [ thenMyStyle := MyStyle + fsItalicelseMyStyle := MyStyle + ,fsItalic;if fsUnderline in Style thenif MyStyle = [ thenMyStyle := MyStyle + fsUnderlineelseMyStyle := MyStyle + ,fsUnderline;if fsStrikeOut in Style thenif MyStyle = [ thenMyStyle := MyStyle + fsStrikeOutelseMyStyle := MyStyle + ,fsStrikeOut;MyStyle := MyStyle + ];end;Myini.WriteString (FontStyle, style, MyStyle);Myini.free;End;

  4、读:

  

varMyFontStyle : TFontStyles;MyStyle : string;beginMyFontStyle := [];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 MyFontStyle := MyFontStyle + [fsItalic];if Pos (fsUnderline, MyStyle) $#@62; 0 thenMyFontStyle := MyFontStyle + [fsUnderline];if (fsStrikeOut, MyStyle) $#@62; 0 thenMyFontStyle := MyFontStyle + [fsStrikeOut];FontDialog.Font.Style := MyFontStyle;MyIni.free;end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  以上代码在Delphi 4.0 运行通过。

展开更多 50%)
分享

猜你喜欢

DELPHI技巧

编程语言 网络编程
DELPHI技巧

Delphi技巧点滴

编程语言 网络编程
Delphi技巧点滴

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

DELPHI基础开发技巧

编程语言 网络编程
DELPHI基础开发技巧

delphi小技巧集锦

编程语言 网络编程
delphi小技巧集锦

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Delphi编程技巧集锦

编程语言 网络编程
Delphi编程技巧集锦

Delphi编程技巧实例

Delphi
Delphi编程技巧实例

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

解析edikid\'s blog的CSS“加密”技术

解析edikid\'s blog的CSS“加密”技术

怎么样定义自动编号字段地初始值和步进值?

怎么样定义自动编号字段地初始值和步进值?
下拉加载更多内容 ↓