Ogu Web Contents Delphi Tips

Iniファイル（設定ファイル）の使い方

使用コンポーネント

TButton	TEdit	TRadioGroup



      uses節にInifilesを追加する

      

      

      //読込

      procedure TForm1.Button1Click(Sender: TObject);

      var

      　Ini: TIniFile;

      begin

      　Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '****.ini');

      　try

      　　Form1.Edit1.Text := Ini.ReadString('PATH','db','0');

      　　Form1.RadioGroup1.ItemIndex := Ini.ReadInteger('FORMAT','type',0);

      　finally

      　　Ini.Free;

      　end;

      end;

      

      

      //書き込み

      procedure TForm1.Button2Click(Sender: TObject);

      var

      　Ini: TIniFile;

      begin

      　Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '****.ini');

      　try

      　　Ini.WriteString('PATH','db',Edit1.Text);

      　　Ini.WriteInteger('FORMAT','type',RadioGroup1.ItemIndex);

      　finally 

      　　Ini.Free;

      　end;

      end;