FormまたはUnitごと保存・読み取りをするには？ (ID:39200)

名前

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

本文 自分が良く使う手法です。 チェックボックスとエディットの内容をMemo1コンポーネントを使って保存します。 Memo1はあらかじめVisibleをFalseにして見えなくしておきます。 うまく動作してない時はTrueにしてMemo1の中身を確認できます。 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin memo1.Lines.Clear; if CheckBox1.Checked then memo1.Lines.Add('True') else memo1.Lines.Add('False'); memo1.Lines.Add(edit1.Text); try memo1.Lines.SaveToFile(changefileext(paramstr(0),'.ini')); except end; end; procedure TForm1.FormCreate(Sender: TObject); begin try memo1.Lines.LoadFromFile(changefileext(paramstr(0),'.ini')) except end; if memo1.Lines[0] = 'True' then CheckBox1.Checked := True else CheckBox1.Checked := False; edit1.Text := memo1.Lines[1]; end;