フォームの変更を保存する（その２）

procedure TForm1.Button1Click(Sender: TObject);
begin
　if colordialog1.Execute then begin　//ボタンを押すとカラーダイアログを開く
　　form1.Color:=colordialog1.Color;　//カラーダイアログで選択した色を，フォームの色にする
　end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
　fi:textfile;　//テキスト型を宣言
begin
　assignfile(fi,getcurrentdir + '\hozon.ini');　//fiと「hozon.ini」ファイルを関連づける
　rewrite(fi);　//fiを開き，書き込めるようにする
　writeln(fi,form1.Left);　//フォームのX座標を，fiに書き込む
　writeln(fi,form1.Top);　//フォームのY座標を，fiに書き込む
　writeln(fi,form1.Width);　//フォームの横の大きさを，fiに書き込む
　writeln(fi,form1.Height);　//フォームの縦の大きさを，fiに書き込む
　writeln(fi,form1.Color);　//フォームの色を，fiに書き込む
　closefile(fi);　//ファイルを閉じる。これで「hozon,ini」ファイルが作成される
end;

//フォームを起動するときの手続き
procedure TForm1.FormCreate(Sender: TObject);
　var
　　fi:textfile;　//テキスト型を宣言
　　i::array[1..5] of string;　//文字列型の配列を宣言
begin
　if FileExists(getcurrentdir + '\hozon.ini')=true then begin　//もし「hozon.ini」ファイルがあれば以下のソースを実行
　　assignfile(fi,getcurrentdir + '\hozon.ini');　//fiと「hozon.ini」ファイルを関連づける
　　reset(fi);　//ファイルを開く
　　readln(fi,i[1]);　//i[1]からi[5]に「hozon.ini」ファイルに書かれたものを代入する
　　readln(fi,i[2]);
　　readln(fi,i[3]);
　　readln(fi,i[4]);
　　readln(fi,i[5]);
　　closefile(fi);　//ファイルを閉じる

　　form1.Left:=strtoint(i[1]);　//フォームのX座標をi[1]にする
　　form1.Top:=strtoint(i[2]);　//フォームのY座標をi[2]にする
　　form1.Width:=strtoint(i[3]);　//フォームの横の大きさを，i[3]にする
　　form1.Height:=strtoint(i[4]);　//フォームの縦の大きさを，i[4]にする
　　form1.Color:=strtoint(i[5]);　//フォームの色を，i[5]にする
　end;
end;