怎样使用.inf文件？

[liuzilu]

比如说：
读source.inf文件，如果文件不存在则建立改文件，并写入信息，
如果存在则读取其中的信息。
怎样建立，写入，读出？

[liuzilu]

错了，是.ini文件

[xzhifei]

Uses
inifiles;//首先引用


Function Ini_Load(INIFILENAME, OBJECT_NAME, SubName: String; T_DEFAULT: INTEGER): INTEGER;//装载INTEGER型
Var T: TINIFILE;
Begin
Try
T := TINIFILE.Create(INIFILENAME);
RESULT := T.ReadINTEGER(SubName, OBJECT_NAME, T_DEFAULT);
Finally T.FREE; End;
End;

Function Ini_LoadB(INIFILENAME, OBJECT_NAME, SubName: String; T_DEFAULT: Boolean): Boolean;//装载Boolean型
Var T: TINIFILE;
Begin
Try
T := TINIFILE.Create(INIFILENAME);
RESULT := T.ReadBool(SubName, OBJECT_NAME, T_DEFAULT);
Finally T.FREE; End;
End;

Function Ini_LoadS(INIFILENAME, OBJECT_NAME, SubName: String; T_DEFAULT: String): String;//装载String型
Var T: TINIFILE;
Begin
Try
T := TINIFILE.Create(INIFILENAME);
RESULT := T.ReadString(SubName, OBJECT_NAME, T_DEFAULT);
Finally T.FREE; End;
End;

Function Ini_SaveS(INIFILENAME, OBJECT_NAME, SubName: String; T_INTEGER: String): BOOLEAN;//保存String型
Var T: TINIFILE;
Begin
Try
T := TINIFILE.Create(INIFILENAME);
T.WriteString(SubName, OBJECT_NAME, T_INTEGER);
RESULT := TRUE;
Finally T.FREE; End;
End;

Function INI_SAVE(INIFILENAME, OBJECT_NAME, SubName: String; T_INTEGER: INTEGER): BOOLEAN;//保存INTEGER型
Var T: TINIFILE; //暂存对象
Begin
Try
T := TINIFILE.Create(INIFILENAME);
T.WriteINTEGER(SubName, OBJECT_NAME, T_INTEGER);
RESULT := TRUE;
Finally T.FREE; End;
End;

Function INI_SAVEB(INIFILENAME, OBJECT_NAME, SubName: String; T_INTEGER: Boolean): BOOLEAN;//保存Boolean型
Var T: TINIFILE;
Begin
Try
T := TINIFILE.Create(INIFILENAME);
T.WriteBool(SubName, OBJECT_NAME, T_INTEGER);
RESULT := TRUE;
Finally T.FREE; End;
End;


示范：
一个ini文件名和路径为'c:\f.ini',某个结构如下(假如C为integer型):
[a]
b:=c

用程序保存
INI_SAVE('c:\f.ini', 'b', 'a', c);

其它的套用一下就可以了

[liao_yy]

研究楼上所说的,也差不多了!

[simonzone]

up

[liuzilu]

不明白，怎样判断是否存在？怎样建立？

[xzhifei]

不用判断是否存在，如果没有，就自动建一个！
如果真想判断的话，用FileExists（文件名）判断就可以了！

[liuzilu]

要读出b的值要怎样写啊？

[lastleo]

var
DelphiIni: TIniFile;
begin
DelphiIni := TIniFile.Create('c:\windows\delphi32.ini');
Memo1.Clear;
DelphiIni.ReadSectionValues('Transfer', Memo1.Lines);
if Memo1.Lines.Values['Title1'] <> 'Picture Painter'
then
DelphiIni.WriteString('Transfer', 'Title1', 'Picture Painter');
DelphiIni.Free;
end;

[lastleo]

var
DelphiIni: TIniFile;
begin
DelphiIni := TIniFile.Create('c:\windows\delphi32.ini');
Memo1.Clear;
DelphiIni.ReadSectionValues('Transfer', Memo1.Lines);
if Memo1.Lines.Values['Title1'] <> 'Picture Painter'
then
DelphiIni.WriteString('Transfer', 'Title1', 'Picture Painter');
DelphiIni.Free;
end;

[xzhifei]

读出值：
c:=Ini_Load('c:\f.ini', 'b', 'a', c);