delphi 怎么保存EDIT里面的字体信息到INI文件？

delphi xe7 怎么保存EDIT和MEMO里面的字体信息到INI文件？

退出保存字体信息到INI文件，打开加载INI里的字体信息到EDIT。

在线急等。

给出代码 谢谢

8 个解决方案

#1

edit1.font.name
edit1.font.size
edit1.font.color

#2

诶，同上。。。。

#3

1、EDIT字体，由font属性决定。
2、fron三个重要属性
  （1）Name
  （2）size 
  （3）color
3、写入ini

procedure TOldBirthDayFrm.Button8Click(Sender: TObject);
var ini:tinifile;
begin
  ini:=tinifile.Create(INIPath+'Config_生日打印.ini');
  ini.WriteString('标题','字体',Edit1.Font.Name);
  ini.WriteIntger('标题','字体尺寸',Edit1.Font.Size);
  ini.WriteString('标题','字体颜色',ColorToString(Edit1.Font.Color));
  ini.Free;
end;

4、读出ini

procedure TOldBirthDayFrm.Button10Click(Sender: TObject);
var ini:tinifile;
begin
  ini:=tinifile.Create(INIPath+'Config_生日打印.ini');
  Edit1.Font.Name:=ini.ReadString('标题','字体','宋体');
  Edit1.Font.Size:=ini.ReadInteger('标题','字体尺寸',14);
  Edit1.Font.Color:=StringToColor(ini.ReadString('标题','字体颜色','clRed'));
  ini.free;
end;

#4

一个EDIT的搞定了，谢谢大家。 
我的窗体上有个PANEL，怎么把PANEL上面所有的EDIT字体信息保存起来呢？
PS：这个PANEL上的EDIT的数量还是个未知数，有时候多有时候少，怎么判断保存？

#5

引用 3 楼 lyhoo163 的回复:

1、EDIT字体，由font属性决定。
2、fron三个重要属性
  （1）Name
  （2）size 
  （3）color
3、写入ini

procedure TOldBirthDayFrm.Button8Click(Sender: TObject);
var ini:tinifile;
begin
  ini:=tinifile.Create(INIPath+'Config_生日打印.ini');
  ini.WriteString('标题','字体',Edit1.Font.Name);
  ini.WriteIntger('标题','字体尺寸',Edit1.Font.Size);
  ini.WriteString('标题','字体颜色',ColorToString(Edit1.Font.Color));
  ini.Free;
end;

4、读出ini

procedure TOldBirthDayFrm.Button10Click(Sender: TObject);
var ini:tinifile;
begin
  ini:=tinifile.Create(INIPath+'Config_生日打印.ini');
  Edit1.Font.Name:=ini.ReadString('标题','字体','宋体');
  Edit1.Font.Size:=ini.ReadInteger('标题','字体尺寸',14);
  Edit1.Font.Color:=StringToColor(ini.ReadString('标题','字体颜色','clRed'));
  ini.free;
end;

一个EDIT的搞定了，谢谢大家。 
我的窗体上有个PANEL，怎么把PANEL上面所有的EDIT字体信息保存起来呢？
PS：这个PANEL上的EDIT的数量还是个未知数，有时候多有时候少，怎么判断保存？

#6

一问一帖，结帖另问。

#7

估计现在很少人愿意钻这个了，呵呵
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
  for i:=0 to Self.ControlCount-1 do
    if Self.Controls[i]<>nil then
    if Self.Controls[i].ClassName = 'TPanel' then
    for j:=0 to TPanel(Self.Controls[i]).ControlCount-1 do
    if  TPanel(Self.Controls[i]).Controls[j].ClassName = 'TEdit' then
    begin
      Memo1.Lines.Add(TEdit(TPanel(Self.Controls[i]).Controls[j]).Font.Name);
      Memo1.Lines.Add(IntToStr(TEdit(TPanel(Self.Controls[i]).Controls[j]).Font.Size));
      Memo1.Lines.Add(IntToStr(TEdit(TPanel(Self.Controls[i]).Controls[j]).Font.Color));
    end;
 end;

给你参考一下吧，结合上面的，就是你要的了

#8

从Ini里读出控件名后用(FindComponent('XXX') As TEdit).FontName:='ZZZ'等等，很容易设置，几句代码而已