前回のプログラムでは、男性か女性か、ペットを飼っているかどうかでメッセージボックスの表示を切り替えるためにif文を使っています。

まずは、複雑になったif文をすっきりさせましょう。今回は「変数」というのを使うんだって。変な数ではなくて、変えられる値という意味だって言っていたけど、どんなものなのかな

変数は宣言しなくちゃダメで、宣言には変数名とデータ型が必要。宣言を書く場所は「var」の後ろ。よし、これさえ覚えれば変数が使えてプログラミングの幅も広がるから、がんばらなくっちゃ。

では、入力結果を入れておく変数を宣言しましょう。変数名は「Profile_Data」にしておきます。ツールバーの[フォーム/ユニットの切り替え]ボタンなどを使って、画面表示をコードエディタに切り替えます。すでに記述しているButton1Clickイベントハンドラを見てください。「begin」の前に空白行を追加して変数宣言を追加します。

procedure TForm2.Button1Click(Sender: TObject);
var
  Profile_Data : string;
begin
  | 
end;

これで「Profile_Data」変数に文字列が代入できるようになったわ。

//  ShowMessage(Edit1.Text + '：' + ComboBox1.Text);

では、前回のif文をコメントにしておきましょう。ここでは、「//」を使う方法を選択しました。Button1Clickイベントハンドラを表示して、// をいっぱい入力。それから、変数にEdit1の内容を代入するコード（太字の部分）を追加します。

procedure TForm2.Button1Click(Sender: TObject);
var
  Profile_Data : string;
begin
//  if RadioGroup1.ItemIndex = 0 then
//    if CheckBox1.Checked then
//      ShowMessage(Edit1.Text + '：' +
//        ComboBox1.Text + '：' + '男性' +
//          '：' + 'ペットを飼っている')
//    else
//      ShowMessage(Edit1.Text + '：' +
//        ComboBox1.Text + '：' + '男性')
//  else
//    if CheckBox1.Checked then
//      ShowMessage(Edit1.Text + '：' +
//        ComboBox1.Text + '：' + '女性' +
//          '：' + 'ペットを飼っている')
//    else
//      ShowMessage(Edit1.Text + '：' +
//        ComboBox1.Text + '：' + '女性');
Profile_Data := Edit1.Text; 
end;

次は変数に連結するのね。連結は「+」だったっけ。とすると「ComboBox1.Text + Profile_Data」となるのか。どこに代入すればいいのかな？教えて、高橋先生！

「1 = 1 + 2」みたいで、ちょっと変な感じだけど「代入」は「計算」とは違うのね。こうやって変数を使うと、項目を1つ1つ代入できて文がわかりやすくなります。それに、「+」で連結すると後に追加される感じなんだ。順番を間違えないようにしようっと。コードはこうなるのかな？

procedure TForm2.Button1Click(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
  ; 
end;

あれ？「else」の続きが必要のないとき、どうするんだったかな？教えて、高橋先生！

「else」はいらなかったんだ。では「ペットを飼っている」のチェックボックスの部分だけ書き換えます。「;（セミコロン）」を忘れずに。さっき入力した「Profile_Data := Edit1.Text;」の次から記述します。あ、下のコードは、コメントの部分は省略しちゃっています。太字の部分を追加します。

procedure TForm2.Button1Click(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 + '：' + 'ペットを飼っている'; 
end;

Form1を選択して、「オブジェクトインスペクタ|プロパティ」ページの「レイアウト|AutoScroll」プロパティを「False」に戻します。次に、配置したTListBoxの「表示|Align」プロパティを「alBottom」に設定してみます。あ～あ、ボタンが見えなくなっちゃった。

何とか見えるようにサイズを調整しました。

ユーザがサイズ変更したらまた、リストボックスがボタンの上なんかに重なっちゃうわよね。ウィンドウ枠を動かさないようにするのがいいかしら？

では、ツールパレットから「Standard|TPanel」コンポーネントを画面に配置します。それから、Panel1を選択して「オブジェクトインスペクタ|プロパティ」ページの「ローカライズ対象|Caption」プロパティの中身を全部消します。さらに「レイアウト| Align」プロパティを「alClient」に設定します。うっ。ほかのコンポーネントが全然見えなくなっちゃいました。

Hide image

図12 TPanelのプロパティ設定

コンポーネントを切り取って、パネルの上に貼り付けるのね。まずは選択かぁ。[Shift]キーだと全部選ばれちゃうって言っていたから、[Ctrl]キーを押します。押しながらListBox1とPanel1以外を全部選択してください。選択できたら[Ctrl+X]キーを押します。わあ、コンポーネントがなくなった。次は、必ずパネルを選択してから貼り付けましょう。Panel1を選択して、[Ctrl+V]キーを押します。なくなったときは心配したけどちゃんと貼り付けられました。

これで、サイズ変更しても平気なのね。あれ？さっきと変わらないよ。

レイアウトのプロパティもいろいろあるんだね。先にフォームサイズを、すべてのコンポーネントが表示できるように調整しておくんだって。フォームの大きさを直しておいてください。次にListBox1にプロパティを設定するので選択しておきます。「オブジェクトインスペクタ|プロパティ」ページの「レイアウト| Anchors」プロパティの先頭の「+」をクリックして展開します。表示された一覧から「akTop」を探して「True」に設定します。

これで、サイズ変更しても入力項目は見えるし、表示用のリストボックスは好きなサイズにできますね。保存して実行してみましょう

Hide image

図14 レイアウト完成