TStringListを利用した簡易iniファイル風処理の方法

・フォームの幅、高さ、位置を読み込み、保存する例
////////////////////// 読み込み
TStringList *pa;
AnsiString ini_file;

pa=new TStringsLists();

// exeファイルのあるフォルダにiniファイルのフルパスを作成
ini_file=ExtractFilePath(Application->ExeName)+"abcde.ini";

if(FileExists(ini_file){
 pa->LoadFromFile(ini_file);
 Width=StrToInt(pa->Values["Width"]);
 Height=StrToInt(pa->Values["Height"]);
 Top=StrToInt(pa->Values["Top"]);
 Left=StrToInt(pa->Values["Left"]);}

////////////////////// 保存
pa->Values["Width"]=Width;
pa->Values["Height"]=Height;
pa->Values["Top"]=Top;
pa->Values["Left"]=Left;
pa->SaveToFile(ini_file);



・オプション設定ダイアログの例
�@メニューが選択されたら、以下の文を実行する。

FrmOption->EdtUrl->Text=pa->Values["Url"];
FrmOption->EdtProxy->Text=pa->Values["Proxy"];
FrmOption->EdtPort->Text=pa->Values["Port"];
if(FrmOption->ShowModal()==mrOk){
 pa->Values["Url"]=Form2->EdtUrl->Text;
 pa->Values["Proxy"]=Form2->EdtProxy->Text;
 pa->Values["Port"]=Form2->EdtPort->Text;}
 
�AFrmOptionフォームのOkボタンクリック時などに、
ModalResult=mrOk;
とすれば、入力されたパラメータが設定される。