inifrm.~pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit IniFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus ,inifiles;

type
  TIniForm = class(TForm)
    OpenDialog1: TOpenDialog;
    MainMenu1: TMainMenu;
    FileMenu: TMenuItem;
    FileOpen: TMenuItem;
    FileExit: TMenuItem;
    HelpMenu: TMenuItem;
    HelpAbout: TMenuItem;
    Memo1: TMemo;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    SetupMenu: TMenuItem;
    SetupFont: TMenuItem;
    SetupColor: TMenuItem;
    N1: TMenuItem;
    procedure FileOpenClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SetupFontClick(Sender: TObject);
    procedure SetupColorClick(Sender: TObject);
    procedure FileExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OpenRecentDoc(Sender: TObject);
    procedure HelpAboutClick(Sender: TObject);
  private

  public

  end;

var
  IniForm: TIniForm;
  RecentDoc: string;
  RecentMenu: TMenuItem;
implementation

{$R *.dfm}

procedure TIniForm.FileOpenClick(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
   RecentDoc:= OpenDialog1.FileName;
   Memo1.Lines.LoadFromFile(RecentDoc);
   RecentMenu.Caption:=RecentDoc;
  end;
end;

procedure TIniForm.FormShow(Sender: TObject);
var
 MyFile: TIniFile;
begin
 //创建一个TIniFile类的实例
 //ExtractFilePath(Application.ExeName)方法用于获得应用程序所在路径
 MyFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'MyFile.ini');
 if MyFile.ValueExists('OpenList','RecentDoc') then
  begin
   RecentDoc:= MyFile.ReadString('OpenList','RecentDoc','');
   RecentMenu:=TMenuItem.Create(self);
   RecentMenu.Caption:= RecentDoc;
   //RecentMenu.Name:= FileRecent;
   RecentMenu.OnClick:= OpenRecentDoc;
   FileMenu.Add(RecentMenu);
  end;
  Memo1.Font.Name:=MyFile.ReadString('Setup','Font-Name','宋体');
  Memo1.Font.size:=MyFile.ReadInteger('Setup','Font-Size',10);
  Memo1.Font.Color:=StringToColor(MyFile.ReadString('Setup','Font-Color','clBlack'));
  Memo1.Color:=StringToColor(MyFile.ReadString('Setup','Color','clWhite'));
  MyFile.Free;
  OpenDialog1.Filter:='Text files (*.txt)|*.TXT';
end;

procedure TiniForm.OpenRecentDoc(Sender: TObject);
begin
 IniForm.Memo1.Lines.loadFromFile(RecentDoc);
end;

procedure TIniForm.SetupFontClick(Sender: TObject);
begin
 if FontDialog1.Execute then
  Memo1.Font:= FontDialog1.Font;
end;

procedure TIniForm.SetupColorClick(Sender: TObject);
begin
 if ColorDialog1.Execute then
  Memo1.Color:= ColorDialog1.Color;
end;

procedure TIniForm.FileExitClick(Sender: TObject);
begin
 IniForm.Close;
end;

procedure TIniForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
 MyFile: TIniFile;
begin
 MyFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'MyFile.ini');
 MyFile.WriteString('OpenList','RecentDoc',RecentDoc);
 MyFile.WriteString('Setup','Font-Name',Memo1.Font.Name);
 MyFile.WriteInteger('Setup','Font-Size',Memo1.Font.Size);
 MyFile.WriteString('Setup','Font-Color',ColorToString(Memo1.Font.Color));
 MyFile.WriteString('Setup','Color',ColorToString(Memo1.Color));
 MyFile.Free;
end;

procedure TIniForm.HelpAboutClick(Sender: TObject);
begin
 showmessage('读写初始化（*.ini）文件演示');
end;

end.