delphi中写配置文件程序

新建一个unit文件

unitUnitConfig;

interface

uses

  Classes;

type

{ TVConfig

  TVConfig =class(TObject)

  private

    AppExeDir: String;

    Fpbxuser: string;

  protected

 

  public

    propertypbxuser:string  read Fpbxuser writeFpbxuser;

   constructor Create;

   destructor Destroy; override;

    functionSaveConfig():integer;

  published

 

  end;

  procedureLoadConfig();

  procedureFreeConfig();

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', 'pbxuser', pbxuser);

  inif.Free;

  inif :=nil;

  result :=0;

end;

 

constructor TVConfig.Create;

var

  inif  : TIniFile;

begin

  //加载配置文件

 Self.AppExeDir := ExtractFileDir(Application.ExeName);

  inif :=TIniFile.Create(Self.AppExeDir + '\config.ini');

  pbxuser :=inif.ReadString('system', 'pbxuser', 'mtcl');

 inif.WriteString('system', 'pbxuser', pbxuser);

 

  inif.Free;

  inif :=nil;

 

end;

procedure LoadConfig();

begin

  g_config :=TVConfig.Create;

end;

procedure FreeConfig();

begin

 FreeAndNil(g_config);

end;

end.