一个关于menu check存储的问题

Question

用ini文件，或一个表保存。
当你的程序运行时，在主窗口的onshow中先读保存好的check值，来决定显示那个界面。

Answer 1

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;这是DELPHI中使用TINIFILE类来保存设置的例子，可以参照一下