IniFileについて (ID:9264)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 わかりました。 以下のユニットを呼び出してINIファイルにセーブ、ロードを行います。 よろしくお願いします。 ---------↓ソース------------------ unit ini; interface uses IniFiles ,SysUtils,Forms,Dialogs; function Get_IniFile(Section,Value,Default:String):String; procedure Set_IniFile(Section,Value,Value2:String); implementation function Get_IniFile(Section,Value,Default:String):String; var IniFile:TIniFile; GFilePath:String; begin GFilePath:=ExtractFilePath(Application.ExeName) + 'Sys\BookSys.ini'; IniFile := TIniFile.Create(GFilePath); try result := IniFile.ReadString(Section,Value,Default); finally IniFile.Free; end; end; procedure Set_IniFile(Section,Value,Value2:String); var IniFile :TIniFile; SFilePath:String; begin SFilePath:=ExtractFilePath(application.ExeName) + 'Sys\BookSys.ini'; IniFile := TIniFile.Create(SFilePath); try IniFile.WriteString(Section,Value,Value2); finally IniFile.Free; end; end; end.