怎样保存和恢复dbgrideh的字体到ini文件

Question

怎样保存和恢复dbgrideh的字体到ini文件，很久没搞delphi了

Answer 1

delphi 自带的demo里有读写ini的范例。

Answer 2

fox600123 您好，经常看见大家说delphi自动的范例，我想请教一下，delphi 2007 自带的demo放在哪里？怎么打开啊？谢谢啊。

Answer 3

呵呵，我电脑只装有D7，范例在 C:\Program Files\Borland\Delphi7\Demos 下面，另外在C:\Program Files\Borland\Delphi7\Help\Examples下面也有一部分范例，2007版的也应该在安装目录下面吧。
C:\Program Files\Borland\Delphi7\Help\Examples\RegIni 里是读写注册表的范例
C:\Program Files\Borland\Delphi7\Demos\Ado\AdoTest 里也有读写INI的代码在帮助里还可以找到简单的例子procedure TForm1.Button1Click(Sender: TObject);var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;procedure TForm1.Button2Click(Sender: TObject);var
  MyIniFile: TIniFile;
  begin  MyIniFile := TIniFile.Create('myapp.ini');  { if the entry wasn抰 there before, delete it now }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { otherwise, restore the old value }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;