inioptions.pas

来自「这个是个简单的关于出票申请的处理」· PAS 代码 · 共 91 行

unit IniOptions;

interface

uses
  Classes, SysUtils, IniFiles, Forms, Windows;

const
  csIniconfigSection = 'config';

  {Section: config}
  csIniconfigYLTicketCount = 'YLTicketCount';

type
  TIniOptions = class(TObject)
  private
    {Section: config}
    FconfigYLTicketCount: Integer;
  public
    procedure LoadSettings(Ini: TIniFile);
    procedure SaveSettings(Ini: TIniFile);
    
    procedure LoadFromFile(const FileName: string);
    procedure SaveToFile(const FileName: string);

    {Section: config}
    property configYLTicketCount: Integer read FconfigYLTicketCount write FconfigYLTicketCount;
  end;

var
  GlobalIniOptions: TIniOptions = nil;
  GLOBALYLTICKETCOUNT: integer;

implementation

procedure TIniOptions.LoadSettings(Ini: TIniFile);
begin
  if Ini <> nil then
  begin
    {Section: config}
    FconfigYLTicketCount := Ini.ReadInteger(csIniconfigSection, csIniconfigYLTicketCount, 200);
  end;
end;

procedure TIniOptions.SaveSettings(Ini: TIniFile);
begin
  if Ini <> nil then
  begin
    {Section: config}
    Ini.WriteInteger(csIniconfigSection, csIniconfigYLTicketCount, FconfigYLTicketCount);
  end;
end;

procedure TIniOptions.LoadFromFile(const FileName: string);
var
  Ini: TIniFile;
begin
  if FileExists(FileName) then
  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
  GlobalIniOptions := TIniOptions.Create;
  GlobalIniOptions.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'TicketsManager.ini');
  GLOBALYLTICKETCOUNT := GlobalIniOptions.FconfigYLTicketCount;

finalization
  GlobalIniOptions.Free;

end.