目次

どんなプログラムだったか、ちょっと忘れちゃってるなぁ。どうでしたっけ？高橋先生！

そうですよね、じゃあ動かしてみます。まずプロジェクトを開きます。Turbo Delphiを起動して、画面中央の「ホームページ」で「Profile.bdsproj」を選択。もし一覧に表示されていなければ、ツールバーの[プロジェクトを開く(Ctrl+F11)]ボタンをクリックします。「プロジェクトを開く」ダイアログボックスから「Profile.bdsproj」を探します。

表示できたら実行してみます。ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行します。項目に文字を入力して[プロフィール]ボタンをクリックします。

図01 アンケートプログラム

せっかく入力した内容も、再起動したらなくなっちゃうのよね。どうやったら、入力した項目をずーっと維持できるのかな？教えて、高橋先生！

保存ボタンを作って、リストボックスの内容をファイルに保存します。アプリケーションを実行中の方は終了します。画面上部の「FormProfile」タブをクリックして表示するユニットを切り替えます。表示をフォームデザイナに変更して、TButtonコンポーネントを追加します。画面右下のツールパレット「Standard」カテゴリから「TButton」コンポーネントを探してフォームに配置します。配置する場所は[プロフィール]ボタンの右側あたりです。配置できたら表を参考にして、オブジェクトインスペクタのプロパティページでプロパティを設定します。

それと、「Caption」プロパティにはアクセラレータ文字を付けられるんだって。アクセラレータ文字に設定したキーとキーボードの[Alt]キーを同時に押すと、ボタンをクリックしたのと同じ動きになるなんて便利～。

[保存(S)]ボタン

ボタンが配置できたら、イベントハンドラを作ります。ListBox1のItemsプロパティのSaveToFileメソッドを使って、ファイルに保存します。ファイル名は「Profile.txt」です。次にメッセージも表示します。btnSaveコンポーネントを選択して、オブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」をダブルクリックします。コードエディタに切り替わったら、太字部分を追加します。

procedure TForm2.btnSaveClick(Sender: TObject);
begin
  ListBox1.Items.SaveToFile('Profile.txt');
  ShowMessage('保存しました');
end;

コードを記述したらプロジェクトを保存します。

保存ボタンが完成しましたので、実行します。ツールバーの[実行]ボタンをクリックします。名前や住所など入力をして、[プロフィール]ボタンをクリックします。同様にして数件情報を入力します。できたら、作成した[保存(S)]ボタンをクリックして保存します。「保存しました」メッセージが表示できたら、実行を終了します。

図02 「保存しました」メッセージ

作成したファイルを確認します。メニューバーの[ファイル(F)|開く(O)...]をクリックして「開く」ダイアログボックスを表示します。「Profile.txt」ファイルを探して表示します（拡張子を省略する設定になっている場合には、「Profile」と表示されているメモ帳アイコンのファイルを選びます）。

図03 テキストファイル表示

内容を確認したら、メモ帳を閉じます。

これで、リストボックスの情報をファイルに書き出すことができました。メソッドだけで処理できるので、それほど難しくなかったですね。この調子でファイルの読み込みもスムーズにできるといいな。

まずは[読み込み(R)]ボタンを配置します。表示をフォームデザイナに切り替えて、画面左側のツールパレット「Standard」カテゴリから「TButton」コンポーネントを探してフォームに配置します。配置する場所は[保存(S)]ボタンの右側あたりです。配置できたら、オブジェクトインスペクタのプロパティページで表を参考にして設定します。

[読み込み(R)]ボタン

次にイベントハンドラを作成します。まず、「FileExists」関数を使って「Profile.txt」ファイルの有無を確認します。ファイルがあった場合は「ListBox1のItemsプロパティのLoadFromFile」メソッドを使って、「Profile.txt」ファイルを読み込みます。

では、フォームデザイナの画面で[読み込み(R)]ボタンを選択して、オブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」をダブルクリックします。コードエディタに切り替わったら、太字部分を追加します。

procedure TForm2.btnReadClick(Sender: TObject);
begin
  if FileExists('Profile.txt') then
    ListBox1.Items.LoadFromFile('Profile.txt');
end;

コードが記述できたら、保存して実行します。ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行します。[読み込み(R)]ボタンをクリックすると、前回保存した内容がリストボックスに表示されます。

図04 [読み込み(R)]ボタンクリック

これで、追加した内容を保持できるようになりました。

[保存(S)]ボタンも[読み込み(R)]ボタンもできたから、アンケートを自由に保存できますね。これでバッチリですよね、高橋先生。

では先に[プロフィール]ボタンのCaptionプロパティを変更します。表示をフォームデザイナに切り替えて、[プロフィール]ボタンを選択します。CaptionプロパティのほかにNameプロパティも変更しましょう。オブジェクトインスペクタ、プロパティページで表を参考にして変更します。配置も左端に移動します。

[プロフィール]ボタン

次に[削除(D)]ボタンを配置します。画面左側のツールパレット「Standard」カテゴリから「TButton」コンポーネントを探してフォームに配置します。配置する場所は[追加(A)]ボタンの右側あたりです。配置できたら、オブジェクトインスペクタのプロパティページで表を参考にして設定します。

[削除(D)]ボタン

次にイベントハンドラを作成します。If文でリストボックスの選択がされているかどうか調べます。ListBox1.ItemIndexプロパティが「<0」だったとき、選択されていないことをメッセージボックスで知らせます。If文の条件を満たさなかったとき、つまり何かリストボックスで選択されていたとき、MessageDlgで[はい|いいえ]ボタンのついたメッセージボックスを表示します。メッセージの内容は「削除してもいいですか？」です。[はい]ボタンをクリックしたとき、「ListBox1.Items.Delete」メソッドで削除します。

では、フォームデザイナの画面で[削除(D)]ボタンを選択して、オブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」をダブルクリックします。コードエディタに切り替わったら、太字部分を記述します。

procedure TForm2.btnDeleteClick(Sender: TObject);
begin
  if ListBox1.ItemIndex < 0 then
    ShowMessage('削除リストを選択してください')
  else
    if MessageDlg('削除してもいいですか？', mtConfirmation, [mbYes,mbNo],0)
         = mrYes then
      ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

コードが記述できたら、ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行します。[読み込み(R)]ボタンでデータを読み込んだら、リストボックスから何も選択しないで[削除(D)]ボタンをクリックします。「削除リストを選択してください」というメッセージボックスが表示されます。次にリストボックスから1つ選択して、[削除(D)]ボタンをクリックします。「削除してもいいですか？」というメッセージボックスが表示されます。[はい]ボタンをクリックすると選択行を削除します。そして、リストボックスの変更を保存するときには[保存(S)]ボタンをクリックします。

図05 「削除してもいいですか」メッセージ

保存、読み込み、削除までできたわ。間違って書いたとき、書き直しもできるといいな。教えて、高橋先生！

[編集(E)]ボタンを配置します。フォームデザイナに切り替えて、画面右側のツールパレット「Standard」カテゴリから「TButton」コンポーネントを探してフォームに配置します。配置する場所は[削除(D)]ボタンの右側あたりです。配置できたら、オブジェクトインスペクタのプロパティページで表を参考にして設定します。

[編集(E)]ボタン

このボタンをクリックすると編集ダイアログボックスを表示するように、これから作っていくんですって。では、ここまでを保存しておきますね。ツールバーの[すべて保存]ボタンで保存します。

[編集(E)]ボタンを使って表示するための、編集ダイアログボックスを作るのね。前回に引き続きテンプレートを使って作成するのかしら。教えて、高橋先生！

整理しましょう。えっと、やることは[住所]コンボボックスの初期値を設定すること、[誕生日] のTDateTimePickerコンポーネントの初期値を設定すること、それぞれのアクセラレータ文字を付ける、フォームのCaptionプロパティに「アンケート」と入力する、プロジェクトオプションでアプリケーションタイトルに「アンケート」と入れる、の5つね。

まず、[住所]コンボボックスの初期値を設定します。フォームデザイナの画面で、[住所]コンボボックスを選択します。オブジェクトインスペクタ、プロパティページで「ローカライズ対象」カテゴリの「Text」プロパティに、コンボボックスの「Items」プロパティ一覧に載っている住所どれか1つを選んで入力します。

次に、[誕生日]デートタイムピッカーの初期値を設定します。[誕生日]デートタイムピッカーを選択します。オブジェクトインスペクタ、プロパティページで「その他」カテゴリの「Date」プロパティに、適当な年の「1/1」を入力します。今回は「1980/1/1」としています。

それからアクセラレータ文字をつけます。ラベルには、FocusControlプロパティに設定するコンポーネントを選びます。フォームのCaptionも設定します。表を参考にしてプロパティを設定してみます。

[名前]ラベル(Label1)

[住所]ラベル(Label2)

[誕生日]ラベル(Label3)

[性別]ラジオグループ(RadioGroup1)

[ペットを飼っている]チェックボックス(CheckBox1)

[Form2]フォーム(Form2)

次は、 アプリケーションタイトルを入力するんですね。メニューバーの[プロジェクト(P)|オプション(O)]メニューをクリックします。「Profile.exeプロジェクトオプション」ダイアログボックス画表示されたら、左側の項目から「アプリケーション」を選択します。画面右側、「アプリケーションの設定」の項目「タイトル(T)」に「アンケート」と入力して、[OK]ボタンをクリックします。

これで、画面を整えられました。配置や幅などは適当に調整しておきます。できたら、ツールバーの[すべて保存]ボタンで保存します。

図06 メインフォーム