DELPHI 寫入讀取INI範例

程式範例

uses
     inifiles;

procedure TForm1.btn3Click(Sender: TObject);
var
  inifile: TInifile;
  iniFileName,sAppPath,sMusicDir,sImageDir:string;
begin
  //獲取當前程式的路徑
  //sAppPath:=ExtractFilePath(Application.ExeName);
  iniFileName:=’testset.ini’; //設定ini檔案儲存名稱

  inifile:=TInifile.Create(‘INI\’+iniFileName); //執行目錄下的 INI目錄內建立 testtest.ini

  //寫配置資訊
  inifile.writeString(‘TESTSET’,’123′,’Pictures’); // 大標籤[TESTSET] , 底下的 123=Picture 參數
  inifile.writeString(‘TESTSET’,’456′,’Music’);

  //讀取配置資訊
  sImageDir:=inifile.readString(‘TESTSET’,’123′,”); //讀取[TESTSET]底下 123=” 的”字串值
  sMusicDir:=inifile.readString(‘TESTSET’,’456′,”);

end;