Delphi iOS Tips (2) : iniファイルを読み書きする
エンバカ高橋さんの記事のソースを試してみました。
ボタン他を配置するのがめんどいので、FormCreateメソッドだけにしてみました。
unit Unit1; interface uses System.SysUtils, System.IniFiles, FMX.Forms, FMX.Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.fmx} function GetIniFilePath: string; const inifile = 'MyApp.ini'; var folder: string; begin folder := GetHomePath + PathDelim + 'Documents'; if not DirectoryExists(folder) then MkDir(folder); Result := folder + PathDelim + inifile; end; procedure TForm1.FormCreate(Sender: TObject); var Ini: TIniFile; begin Ini := TIniFile.create(GetIniFilePath); ShowMessage(Ini.ReadString('Section1', 'ID1', 'N/A')); Ini.WriteString('Section1', 'ID1', 'エンバカ'); ShowMessage(Ini.ReadString('Section1', 'ID1', 'N/A')); Ini.Free; end; end