5,930
社区成员
发帖
与我相关
我的任务
分享保存字体设置问题！
我想把文本框里的字体设置保存到一个文本文件里，然后就可以从程序中其他的字体设置可以直接调用这种设置模式，但那些加粗、下划线，怎样才能保存。它提示说是TFontsysles 类型，怎样才能把这类型的保存到文本。
...全文
请发表友善的回复…
发表回复
seasands 2003-03-04
- 打赏
- 举报
我试试谢谢各位，但我剩的分数太少，所以就平分吧。谢谢！！！
skyclin 2003-03-04
- 打赏
- 举报
用INI文件保存你的设置
注册表也可以
注册表也可以
蓝色光芒 2003-03-04
- 打赏
- 举报
我的意思是用Ini文件来保存。当然用纯文本文件也可以了。(Ini文件也是纯文件文件只是它的读写很方便)。
My_first 2003-03-04
- 打赏
- 举报
先保存到.ini文件里。然后读出来.
uses inifiles;
var inifile: TIniFile;
begin
IniFile := TIniFile.Create('demo.ini');
IniFile.WriteString('set', 'set', edit1.Text);
showMessage(IniFile.ReadString('set','set', '');
iniFile.Free;
end;
uses inifiles;
var inifile: TIniFile;
begin
IniFile := TIniFile.Create('demo.ini');
IniFile.WriteString('set', 'set', edit1.Text);
showMessage(IniFile.ReadString('set','set', '');
iniFile.Free;
end;
seasands 2003-03-04
- 打赏
- 举报
怎样保存？？？
ini.writeinteger
是什么意思
ini.writeinteger
是什么意思
蓝色光芒 2003-03-04
- 打赏
- 举报
需要解析才能保存，
比如
if fsBold in **.**.Font.Style then ini.writeinteger('Font','Bold',1)
else ini.writeinteger('Font','Bold',0)
....
比如
if fsBold in **.**.Font.Style then ini.writeinteger('Font','Bold',1)
else ini.writeinteger('Font','Bold',0)
....
