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

(参考)FireMonkey: Windows/OS X/iOSでINIファイルを扱う

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です