untinifile.pas

来自「自动创建带密码的Access数据库及表,第三方控件主要有: ReportMach」· PAS 代码 · 共 96 行

unit UntIniFile;

interface

uses
  Classes, SysUtils, IniFiles, Forms, Windows;

const
  csIniOptionSection = 'Option';

  {Section: Option}
  csIniOptionLastFile = 'LastFile';
  csIniOptionLastUser = 'LastUser';
  csIniOptionLastLbl  = 'LastLbl';

type
  TIniOptions = class(TObject)
  private
    {Section: Option}
    FOptionLastFile: string;
    FOptionLastUser: string;
    FOptionLastLbl: string;
  public
    procedure LoadSettings(Ini: TIniFile);
    procedure SaveSettings(Ini: TIniFile);
    
    procedure LoadFromFile(const FileName: string);
    procedure SaveToFile(const FileName: string);

    {Section: Option}
    property OptionLastFile: string read FOptionLastFile write FOptionLastFile;
    property OptionLastUser: string read FOptionLastUser write FOptionLastUser;
    property OptionLastLbl: string read FOptionLastLbl write FOptionLastLbl;
  end;

var
  IniOptions: TIniOptions = nil;

implementation

procedure TIniOptions.LoadSettings(Ini: TIniFile);
begin
  if Ini <> nil then
  begin
    {Section: Option}
    FOptionLastFile := Ini.ReadString(csIniOptionSection, csIniOptionLastFile, 'LblPrint.lbl');
    FOptionLastUser := Ini.ReadString(csIniOptionSection, csIniOptionLastUser, 'Admin');
    FOptionLastLbl := Ini.ReadString(csIniOptionSection, csIniOptionLastLbl, '小标签');
  end;
end;

procedure TIniOptions.SaveSettings(Ini: TIniFile);
begin
  if Ini <> nil then
  begin
    {Section: Option}
    Ini.WriteString(csIniOptionSection, csIniOptionLastFile, FOptionLastFile);
    Ini.WriteString(csIniOptionSection, csIniOptionLastUser, FOptionLastUser);
    Ini.WriteString(csIniOptionSection, csIniOptionLastLbl, FOptionLastLbl);
  end;
end;

procedure TIniOptions.LoadFromFile(const FileName: string);
var
  Ini: TIniFile;
begin
  begin
    Ini := TIniFile.Create(FileName);
    try
      LoadSettings(Ini);
    finally
      Ini.Free;
    end;
  end
end;

procedure TIniOptions.SaveToFile(const FileName: string);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(FileName);
  try
    SaveSettings(Ini);
  finally
    Ini.Free;
  end;
end;

initialization
  IniOptions := TIniOptions.Create;

finalization
  IniOptions.Free;
end.