delphi中ini配置檔案(Inifile)使用方法
阿新 • • 發佈:2019-01-22
uses
inifiles;
Procedure NewFile(FileName:String;Text:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {看檔案是否存在,在就刪除}
AssignFile(F, FileName); {將檔名與變數 F 關聯}
ReWrite(F); {建立一個新的檔案並命名為 ek.txt}
Writeln(F,Text);
Closefile(F); {關閉檔案 F}
End;
procedure TForm1.Button1Click(Sender: TObject);
var
inifile:TInifile;
iniFileName,sAppPath,sMusicDir,sImageDir:string;
begin
//獲取當前程式的路徑
sAppPath:=ExtractFilePath(Application.ExeName);
iniFileName:=sAppPath+'testset.ini';
inifile:=TInifile.Create(iniFileName);
//判斷ini檔案是否存在(不存在則建立)
if not FileExists(pChar(iniFileName)) then
begin
NewFile(iniFileName,'[TESTSET]');
//寫配置資訊
inifile.writeString('TESTSET','DLGOPENIMGDIR',sAppPath+'Pictures');
inifile.writeString('TESTSET','DLGOPENMICDIR',sAppPath+'Music');
end ;
//讀取配置資訊
sImageDir:=inifile.readString('TESTSET','DLGOPENIMGDIR','');
sMusicDir:=inifile.readString('TESTSET','DLGOPENMICDIR','');
end;