Delphi 讀寫ini文件

在Delphi中用來(lái)保存一些配置等信息用得最多的就是ini文件。

相對(duì)來(lái)說(shuō)對(duì)ini配置文件的讀寫在 delphi 中 讀寫都非常簡(jiǎn)單

1.Delphi讀寫ini文件需要引用'IniFiles'單元

2.定義變量:
Var
Filename:string;
myinifile:Tinifile;

3.變量附值
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';//指明路徑.如果不指明路徑.文件將在windows目錄建立
myinifile:=Tinifile.Create(Filename);//Create('program.ini');

4.寫入文件
myinifile.writestring(小節(jié)名,關(guān)鍵字,變量或者字符串值);
myinifile.writeinteger(小節(jié)名,關(guān)鍵字,變量或者整數(shù)數(shù)值);
myinifile.writenbool(小節(jié)名,關(guān)鍵字,變量或者True/False);
如果ini文件不存在的時(shí)候.會(huì)自動(dòng)創(chuàng)建該ini文件

5.刪除關(guān)鍵字
myinifile.DeleteKey(小節(jié)名,關(guān)鍵字);

6.刪除小節(jié)
myinifile.EraseSection(小節(jié)名);

7.釋放變量
myinifile.distory;

8.其他
Tinifile類還提供了3種對(duì)象方法來(lái)操作ini文件
①myinifile.readsection(小節(jié)名,TStrings變量);可將指定小節(jié)中的所有關(guān)鍵字名讀取至一個(gè)字符串列表變量中;
②myinifile.readsections(TStrings變量);可將INI文件中所有小節(jié)名讀取至一個(gè)字符串列表變量中去.
③myinifile.readsectionvalues(小節(jié)名,TStrings變量);可將INI文件中指定小節(jié)的所有行（包括關(guān)鍵字、=、值）讀取至一個(gè)字符串列表變量中去.

9. delphi讀寫ini文件實(shí)例
//--兩個(gè)過(guò)程，主要實(shí)現(xiàn)：窗體關(guān)閉的時(shí)候，文件保存界面信息；窗體創(chuàng)建的時(shí)候，程序讀取文件文件保存的信息。
//--首先要uses IniFiles(單元）
//--窗體創(chuàng)建的時(shí)候，讀取ini文件信息

procedure TfrmAFN04H_F9.FormCreate(Sender: TObject);
var
vFIni: TIniFile;
sFileName: string;
begin
sFileName := ExtractFileDir(Application.ExeName);
if Copy(sFileName, Length(sFileName) - 1, 1) = '\' then
sFileName := sFileName + 'saveInformation.ini'
else
sFileName := sFileName + '\' + 'saveInformation.ini';

vFIni := TIniFIle.Create(sFileName);
Edit1.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0');
Edit2.Text := vFIni.ReadString('AFN04F7', 'Edit2', '0');
Edit3.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0');
Edit4.Text := vFIni.ReadString('AFN04F7', 'Edit4', '0');

end;

//--窗體關(guān)閉的時(shí)候，文件保存界面信息；

procedure TfrmAFN04H_F9.FormClose(Sender: TObject;
var Action: TCloseAction);
var
sFileName: string;
vFIni: TIniFile;
iTmp, i: integer;
name: string;
begin

//寫配置文件
sFileName := ExtractFileDir(Application.ExeName);
if Copy(sFileName, Length(sFileName) - 1, 1) = '\' then
sFileName := sFileName + 'saveInformation.ini'
else
sFileName := sFileName + '\' + 'saveInformation.ini';

vFIni := TIniFIle.Create(sFileName);
try
vFIni.WriteString('AFN04F9', 'Edit1', Edit1.Text);
vFIni.WriteString('AFN04F9', 'Edit2', Edit2.Text);
vFIni.WriteString('AFN04F9', 'Edit3', Edit3.Text);
vFIni.WriteString('AFN04F9', 'Edit4', Edit4.Text);
finally
vFIni.Free;
end;
end;