Delphi中配置文件的架构

来源：互联网发布：世界纹身大师知乎编辑：程序博客网时间：2024/06/05 00:43

unit UnitConfig;interfaceuses  Classes;type  { TVConfig }  TVConfig = class(TObject)  privateAppExeDir: 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;implementationuses  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.

0 0