unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 =

class(TForm)

    Button1: TButton;

    Button2: TButton;

   

procedure FormCreate(Sender: TObject);

   

procedure FormDestroy(Sender: TObject);

   

procedure Button1Click(Sender: TObject);

   

procedure Button2Click(Sender: TObject);

 

private

   

{ Private declarations }

 

public

   

{ Public declarations }

 

end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

uses

  IniFiles;

var

  ini: TMemIniFile;

procedure TForm1.FormCreate(Sender: TObject);

begin

  ini := TMemIniFile.Create(

'c:\temp\test.ini');

end;

//写入

procedure TForm1.Button1Click(Sender: TObject);

begin

  ini.WriteString(

'AAA',

'A1',

'AAA-String');

//其他也都和 IniFile 一样使用

//  ini.WriteInteger();

//  ini.WriteBool();

//  ini.WriteDate();

//  ini.WriteTime();

//  ini.WriteDateTime();

//  ini.WriteFloat();

//  ini.WriteBinaryStream();

 

//ini.UpdateFile;  //因为 TMemIniFile 是内存操作, 这样才能保存到文件

end;

//读出及其他

procedure TForm1.Button2Click(Sender: TObject);

var

  s:

string;

begin

  s := ini.ReadString(

'AAA',

'A1',

'默认值');

  ShowMessage(s); 

//AAA-String

//其他读入命令也都和 IniFile 一样使用

//  ini.ReadInteger();

//  ini.ReadBool();

//  ini.ReadDate();

//  ini.ReadTime();

//  ini.ReadDateTime();

//  ini.ReadFloat();

//  ini.ReadBinaryStream();

//还有四个常用方法也是和 IniFile 一样的

//ini.DeleteKey();

//ini.EraseSection();

//ini.ReadSection();

//ini.ReadSections();

//另外有三个 IniFile 中没有的方法也容易使用

//ini.GetStrings(List: TStrings);

//ini.SetStrings(List: TStrings);

//ini.Rename(const FileName: string; Reload: Boolean);

//其中 Rename 中的第二个 Boolean 参数如果为 True 将会刷新读入

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  ini.Free;

end;

end.