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

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

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

Hide image

図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)]ボタンをクリックして保存します。「保存しました」メッセージが表示できたら、実行を終了します。

Hide image

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

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

Hide image

図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)]ボタンをクリックすると、前回保存した内容がリストボックスに表示されます。

Hide image

図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)]ボタンをクリックします。

Hide image

図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]ボタンをクリックします。

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

Hide image

図06 メインフォーム

画面をコードエディタに切り替えて、「btnAddDataClick」イベントハンドラを探します。誕生日をリストボックスに追加することからはじめます。「DateToStr」関数を使ってDateTimePicker1の「Date」プロパティをパラメータにして、文字列に変換します。追加する場所は住所と性別の間にします。[住所]コンボボックスの情報を「Profile_Data」変数に代入する文に、誕生日を代入する文を追加します。以前のコメント部分は省略しています。太字部分を書き換えます。

procedure TForm2.btnAddDataClick(Sender: TObject);
var
  Profile_Data : string;
begin
//コメント部分は省略
  Profile_Data := Edit1.Text;
  Profile_Data := Profile_Data + ':' + ComboBox1.Text
    + ':' + DateToStr(DateTimePicker1.Date);
  if RadioGroup1.ItemIndex = 0 then
  //以下略
end;

次に、「btnAddDataClick」イベントハンドラで全角の「：」を半角の「:」に変えます。そして、CheckBox1の「Checked」プロパティを判別しているIf文にelse文を追加して、「:」を追加する文を追加します。「：」と太字部分を変更します。

procedure TForm2.btnAddDataClick(Sender: TObject);
var
  Profile_Data : string;
begin
  Profile_Data := Edit1.Text;
  //中略
  if CheckBox1.Checked then
    Profile_Data := Profile_Data + ':' + 'ペットを飼っている'//セミコロン削除
  else
    Profile_Data := Profile_Data + ':'; 
  if Edit1.Text = '' then
    ShowMessage('名前が入力されていません')
  else
    ListBox1.Items.Add(Profile_Data);
end;

これで、メインフォームが整いました。保存して実行します。ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行します。

[読み込み(R)]ボタンでデータを読み込んだら、すでに入っているリストボックスのデータはすべて削除してしまいます。リストを選択して、[削除(D)]ボタンで全件を削除します。できたら新しいデータを入力して[追加(A)]ボタンをクリックします。誕生日が追加されているか、全角の「：」から半角の「:」に変わっているか、ペットを飼っていないとき末尾に「:」が表示されているかの3つをチェックしておいてね、って高橋先生が言ってました。何件か入力できたら、[保存(S)]ボタンをクリックして保存しておきます。

Hide image

図07 メインフォームの実行

今度こそ、編集ダイアログボックスを作るんですね。テンプレートを使わないとどう違うんだろう？教えて、高橋先生！

さっそく、編集ダイアログボックスを作ります。今回はメニューを使用して作るんですって。メニューバーから「ファイル(F)|新規作成(N)」サブメニューで「フォーム - Delphi for Win32(E)」をクリックします。サイズが小さいので入力用のコンポーネントを配置することを考えて少し広げます。フォームのプロパティも設定しておきます。表を参考にしてプロパティを設定します。ここではフォーム名を「Form3」として説明しますが、手順によってはフォーム名が異なる場合があります。

Form3フォーム

できたら名前をつけて保存します。ツールバーの[すべて保存]ボタンをクリックすると「名前をつけて保存」。ダイアログボックスが表示されます。「FormEdit」と入力して[保存(S)]ボタンをクリックします。

次に、コンポーネントを配置します。コンポーネントをメインフォームからコピーしてきます。画面上部の「FormProfile」タブをクリックして切り替えます。表示をフォームデザイナにして、入力項目すべて(CheckBox1、ComboBox1、DateTimePicker1、Edit1、Label1、Label2 、Label3、RadioGroup1)を選択します。確認できたらコピーします。[編集(E)|コピー(C)]メニューをクリックするか、キーボードの[Ctrl]+[C]キーを押してコピーします。次に、編集ダイアログボックスに表示を切り替えます。画面上部の「FormEdit」タブをクリックします。表示をフォームデザイナにして、フォーム上にコンポーネントを貼り付けます。[編集(E)|貼り付け(P)]メニューをクリックするか、キーボードの[Ctrl]+[V]キーを押して貼り付けます。ほかに、TButtonコンポーネント２つを配置します。画面右下のツールパレット「Standard」カテゴリの「TButton」をクリックして、画面下部に配置します。もう1つのTButtonコンポーネントも同様にして隣に並べます。

配置できたら、プロパティを設定します。コピーして配置したコンポーネントもNameプロパティを設定します。表を参考にして配置したコンポーネントのプロパティを設定します。

[名前(N)]エディット(Edit1)

[住所(J)]コンボボックス(ComboBox1)

[誕生日(B)]デートタイムピッカー(DateTimePicker1)

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

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

Button1ボタン

Button2ボタン

これで編集ダイアログボックスの外観は完成しました。ツールバーの[すべて保存]ボタンをクリックして保存します。

Hide image

図08 編集ダイアログボックス

選択しているリストボックスのデータを編集ダイアログボックスに読み込むんですよね。でも、１人分のデータは１行にまとめてあるから、名前は名前、住所は住所としてバラバラにしなくっちゃ。文字数は決まっていないのにどうやって分けるのかしら？教えて、高橋先生！

変数 := TStringList.Create;

では、先にuses節にユニットを追加します。メニューバーで[ファイル(F)|ユニットを使う(U)...] をクリックします。「ユニットの使用」ダイアログボックスが表示されたら、「FormProfile」ユニットを選択して[OK]ボタンをクリックします。画面をコードエディタにして実装部のuses節に追加されていることを確認します。

implementation
uses FormProfile;
{$R *.dfm}

次にイベントハンドラを作成します。画面はFormEditユニットのフォームデザイナで、frmEditフォームを選択します。画面左側のオブジェクトインスペクタ、イベントページで「表示」カテゴリの「OnShow」イベントをダブルクリックします。変数を用意しておきます。リストボックスで何番目のリストが選択されているかを格納するためのInteger型の変数と、リストボックス内の１人分のデータを処理するためのTStringList型の変数を宣言します。コードエディタに切り替わったら、太字部分を追加します。

procedure TfrmEdit.FormShow(Sender: TObject);
var
  i : Integer;
  stlData : TStringList;
begin

end;

では、リストボックスのデータを読み込みます。まず、リストボックスのデータのうち何番目が選択されているかを「i」に代入しておきます。次にTStringListの変数を生成して、「Delimiter」プロパティに半角の「':'」を代入します。そうして、「DelimitedText」プロパティにデータを代入します。リストボックスで選択されている文字列は「ListBox1.Items[0]」のように読み込めます。

「ListBox1」はForm2の上のコンポーネントなので、フォーム名もつけておきます。太字部分を追加します。

procedure TfrmEdit.FormShow(Sender: TObject);
var
  i : Integer;
  stlData : TStringList;
begin
  i := Form2.ListBox1.ItemIndex;
  stlData := TStringList.Create;
  stlData.Delimiter := ':';
  stlData.DelimitedText := Form2.ListBox1.Items[i];
end;

次はデータを各項目ごとに分割して、それぞれのコンポーネントに設定します。項目はTStringListの「Strings」プロパティに配列で入っています。リストボックスに入っていた項目の左から順に「0」番から「4」番まで5つの項目に分かれているんですって。それじゃあ、名前は0番目、住所は1番目ってことね。コンポーネントに合わせて代入します。

名前と住所は、コンポーネントの「Text」プロパティに代入できます。誕生日は文字列から日付型にする「StrToDate」関数を使えば型を変えられるんだったわね。日付型にできれば、TDateTimePickerコンポーネントの「Date」プロパティに代入できます。性別は「ItemIndex」プロパティに何番目が選択されているかが入っているので、「男性」なら「0」、そうでなければ「1」を代入するようにします。ペットのチェックボックスは「''」(長さ0の文字列)のとき、「Checked」プロパティを「False」に、そうでなければ「True」にします。FormShowイベントハンドラに太字部分を追加します。

procedure TfrmEdit.FormShow(Sender: TObject);
var
  i : Integer;
  stlData : TStringList;
begin
  i := Form2.ListBox1.ItemIndex;
  stlData := TStringList.Create;
  stlData.Delimiter := ':';
  stlData.DelimitedText := Form2.ListBox1.Items[i];
  edtName.Text := stlData.Strings[0];
  cmbAddress.Text := stlData.Strings[1];
  dtpBirthday.Date := StrToDate(stlData.Strings[2]);
  if stlData.Strings[3] = '男性' then
    rgpSeibetu.ItemIndex := 0
  else
    rgpSeibetu.ItemIndex := 1;
  if stlData.Strings[4] = '' then
    cbxPet.Checked := False
  else
    cbxPet.Checked := True;
  FreeAndNil(stlData);
end;

これで、編集ダイアログボックスにデータを読み込むことができますね。実行はしないけど、念のために保存しておきます。ツールバーの[すべて保存]ボタンをクリックして保存します。

これでやっと、編集ダイアログボックスを表示できるんですね。「ShowModal」で表示するのかな？教えて、高橋先生！

if frmEdit.ShowModal = mrOK then

[更新(U)]ボタンと[キャンセル(C)]ボタンのイベントハンドラを作成します。まずは[更新(U)]ボタンから作ります。FormEditのフォームデザイナ画面で[更新(U)]ボタンを選択します。画面左側のオブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」イベントをダブルクリックします。太字部分を追加します。

procedure TfrmEdit.btnUpdateClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

次に[キャンセル(C)]ボタンを作ります。FormEditのフォームデザイナ画面で[キャンセル(C)]ボタンを選択します。画面左側のオブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」イベントをダブルクリックします。太字部分を追加します。

procedure TfrmEdit.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

記述できたら、ツールバーの[すべて保存]ボタンをクリックして保存します。編集ダイアログボックスが完成しました。

if frmEdit.ShowModal = mrOk then

先にユニットを追加します。画面上部の「FormProfile」タブをクリックしてメインフォームに表示を切り替えます。メニューバーで[ファイル(F)|ユニットを使う(U)...] をクリックします。「ユニットの使用」ダイアログボックスが表示されたら、「FormEdit」ユニットを選択して[OK]ボタンをクリックします。画面をコードエディタにして実装部のuses節に追加されていることを確認します。

implementation
uses FormEdit;
{$R *.dfm}

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

procedure TForm2.btnEditClick(Sender: TObject);
var
  s : string;
begin
  if ListBox1.ItemIndex < 0 then
    ShowMessage('編集リストを選択してください')
  else
end;

次にfrmEditフォームを「ShowModal」メソッドで表示して、戻り値をチェックするIf文を作成します。複数文入るので「begin」と「end;」で囲みます。

procedure TForm2.btnEditClick(Sender: TObject);
var
  s : string;
begin
  if ListBox1.ItemIndex < 0 then
    ShowMessage('編集リストを選択してください')
  else
    if frmEdit.ShowModal = mrOk then
    begin

    end;
end;

frmEditのコンポーネントに入っている各項目を文字列として結合してs変数に代入します。誕生日は「DateToStr」関数で型を変換します。性別はrgpSeibetuラジオグループの「ItemIndex」プロパティが0だったら「'男性'」、そうでなければ「'女性'」を代入します。ペットはcbxPetチェックボックスの「Checked」プロパティが「True」だったら「'ペットを飼っている'」を代入します。最後にリストボックスの選択行「ListBox1.Items[ListBox1.ItemIndex]」にs変数を代入して、更新したことをメッセージボックスで知らせます。太字部分を追加します。

unit FormProfile;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    btnAddData: TButton;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RadioGroup1: TRadioGroup;
    btnRead: TButton;
    btnSave: TButton;
    btnDelete: TButton;
    btnEdit: TButton;
    procedure btnAddDataClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnReadClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form2: TForm2;

implementation

uses FormEdit;

{$R *.dfm}

procedure TForm2.btnEditClick(Sender: TObject);
var
  s : string;
begin
  if ListBox1.ItemIndex < 0 then
    ShowMessage('編集リストを選択してください')
  else
    if frmEdit.ShowModal = mrOk then
    begin
      s := frmEdit.edtName.Text + ':' +
        frmEdit.cmbAddress.Text + ':' +
        DateToStr(frmEdit.dtpBirthday.Date) + ':';
      if frmEdit.rgpSeibetu.ItemIndex = 0 then
        s := s + '男性' + ':'
      else
        s := s + '女性' + ':';
      if frmEdit.cbxPet.Checked then
        s := s + 'ペットを飼っている';
      ListBox1.Items[ListBox1.ItemIndex] := s;
      ShowMessage('更新しました');
    end;
end;

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

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

procedure TForm2.btnAddDataClick(Sender: TObject);
var
  Profile_Data : string;
begin
//  コメント部分略
  Profile_Data := Edit1.Text;
  //「:」を半角に書き換え
  Profile_Data := Profile_Data + ':' + ComboBox1.Text;
  if RadioGroup1.ItemIndex = 0 then
    Profile_Data := Profile_Data + ':' + '男性'
  else
    Profile_Data := Profile_Data + ':' + '女性';
  if CheckBox1.Checked then
    Profile_Data := Profile_Data + ':' + 'ペットを飼っている'
  else
    Profile_Data := Profile_Data + ':'; //追加しないと編集画面でエラーになります。

  if Edit1.Text = '' then
    ShowMessage('名前が入力されていません')
  else
    ListBox1.Items.Add(Profile_Data);
end;

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;

end.

やっと、完成しました。保存して実行します。ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行します。[読み込み(R)]ボタンでデータを読み込んだら、リストボックスから1つ選択して[編集(E)]ボタンをクリックします。成功したら、書き換えて[更新(U)]ボタンをクリックします。リストボックスの内容を確認して変更できたら完成です。

Hide image

図09 編集ダイアログボックスの実行

Hide image

図10 完成図