Delphi中配置文件的架构

unit UnitConfig;

interface

uses
  Classes;

type
  { TVConfig }

  TVConfig = class(TObject)
  private
AppExeDir: String;
tree: AnsiString;

  protected

  public
  property ptree: AnsiString read tree write tree;
constructor Create;
destructor Destroy; override;
function SaveConfig(): integer;
  published

  end;

procedure LoadConfig();
procedure FreeConfig();

var
  g_config: TVConfig;

implementation

uses
  IniFiles, SysUtils, Forms;

destructor TVConfig.Destroy;
begin

  inherited;
end;

function TVConfig.SaveConfig: integer;
var
  inif: TIniFile;
begin

  // 加载配置文件
     Self.AppExeDir := ExtractFileDir(Application.ExeName);
    inif := TIniFile.Create(Self.AppExeDir + '\config.ini');

  inif.WriteString('system', 'ptree', ptree);
  inif.Free;
  inif := nil;
  result := 0;
end;

constructor TVConfig.Create;
var
  inif: TIniFile;
  cmds:AnsiString;
begin
  // 加载配置文件
  Self.AppExeDir := ExtractFileDir(Application.ExeName);
  inif := TIniFile.Create(Self.AppExeDir + '\config.ini');

  end;

  inif.Free;
  inif := nil;

end;

procedure LoadConfig();
begin
  g_config := TVConfig.Create;
end;

procedure FreeConfig();
begin
  FreeAndNil(g_config);
end;

end.