掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.