从中可以看出,INI文件在读写之前要先建一个变量将它联系起来,再进行读写。在读写完之后及时进行释放,以使信息可以准确的写进INI文件中。例如:
FINI.WriteString('MainGrou', 'SubStr', 'This is a string.');
这一句,'MainGrou'是它的主键,也就是在INI文件中用中括号括着的。'SubStr'是子键,它隶属于一个指定的主键,在INI文件中显示成一个在等号前面的字符串。'This is a string.'是这个子键的值。对于一个指定的INI文件,只可有一个指定名称的主键,而每一个不同的主键则可以用同名的子键保存各自的信息而不互相干扰。
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
FINI : TINIFile;
begin
FINI := TINIFile.Create('C:\Test.INI');
Try
FINI.WriteString('MainGrou', 'SubStr', 'This is a string.');
FINI.WriteInteger('MainGrou', 'Int1', 88);
FINI.WriteInteger('MainGrou', 'Int2', 345);
FINI.WriteBool('MainGrou', 'Bool', True);
Finally
FINI.Destroy;
End;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
FINI : TINIFile;
V1, V2 : Integer;
V3 : Boolean;
V4 : String;
begin
FINI := TINIFile.Create('C:\Test.INI');
With FINI do
Try
V3 := ReadBool('MainGrou', 'Bool', True);
If V3 then
begin
V4 := ReadString('MainGrou', 'SubStr', 'Read Error.');
ShowMessage(V4);
end
else
begin
V1 := ReadInteger('MainGrou', 'Int1', 0);
V2 := ReadInteger('MainGrou', 'Int2', 0);
ShowMessage(IntToStr(V1+V2));
end;
Finally
Destroy;
End;
end;