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

エラーチェックということですが、どういうときにうまく計算できないかを考えないとね。思いつくところだけ箇条書きにしてみます。ボタンごとに分けて考えるといいんだって。

• 1度計算結果を出したあと、クリアしないでテンキーボタンを押すとき
• edtInput1に値が入っていないのに演算ボタンを押すとき
• edtInput2に値が入っているのに演算ボタンを押すとき
• 値が何も入っていないのに計算ボタンを押すとき
• edtInput1だけに値が入っていて計算ボタンを押したとき

このくらいですよね、高橋先生。

どれどれ。ツールバーの[実行]ボタンをクリックして、実行。edtInput1には好きな数字を入力して、[÷]ボタンをクリックします。次の数値はテンキーから「0」だけ入力します。

図01 0割り

[計算]ボタンをクリックすると、あ、エラーメッセージが表示されました。

Hide image

図02 デバッガ例外通知

それでは、[継続(C)]ボタンをクリックして続けます。メッセージボックスがもう一つ表示されます。

Hide image

図03 実行時エラーのメッセージ

try
  //例外が発生するかもしれないコード①
  //続きのコード②
except
  //例外が発生したときのコード③
end;
//続きのコード④

なるほど、分かったような分からないような。とりあえず、やってみるか。じゃあ、まずtry except文の部分だけ考えてみます。最初に入力項目をクリアするんだったっけ。エディットのクリアは、長さ0の文字列を代入するのね。

try
  Ans := Num1 / Num2;
except
  edtInput2.Text := '';
end;

次に、メッセージボックスを表示。メッセージの内容は「0による浮動小数点除算.」ではわからないので、「0で割ることはできません。クリアボタンをクリックするか、正しい値を入力してください。」にします。

try
  Ans := Num1 / Num2;
except
  edtInput2.Text := '';
  ShowMessage('0で割ることはできません。クリアボタンをクリックするか、正しい値を入力してください。');
  Exit;
end;

そっか、間違えないようにしないと。コードを記述します。画面をコードエディタに切り替えて、btnKeisanClickイベントハンドラで、割り算をしているif文を探します。「Ans := Num1 / Num2」の前に空白行を入れて「try」を記述。勢いあまって改行しちゃった。うげ、なんか変な表示が！！ 教えて、高橋先生！

Hide image

図04 try文入力

あーびっくりした。補完してくれるのは便利だけれど、予想外のこともしちゃうのね。では、気を取り直して、コードを入力します。太字部分を追加します。特にtry except文の「end」の後に「;」をつけないようにします。

procedure TfrmCalc.btnKeisanClick(Sender: TObject);
var
  Num1 : Integer;
  Num2 : Integer;
  Ans : Double;
begin
  Num1 := StrToIntDef(edtInput1.Text, 0);
  Num2 := StrToIntDef(edtInput2.Text, 0);
  if lblEnzan.Caption = '＋' then
    Ans := Num1 + Num2
  else
  if lblEnzan.Caption = '－' then
    Ans := Num1 - Num2
  else if lblEnzan.Caption = '×' then
    Ans := Num1 * Num2
  else if lblEnzan.Caption = '÷' then
    try
      Ans := Num1 / Num2;
    except
      edtInput2.Text := '';
      ShowMessage('0で割ることはできません。クリアボタンをクリックするか、正しい値を入力してください。');
      Exit;
    end
  else
    Ans := Num1;
  edtInput2.Color := clYellow;
  edtKekka.Color := clWhite;
  lblEqual.Visible := True;
  edtKekka.Text := FloatToStr(Ans);
end;

できたら、ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行してみます。先ほどと同じように0で割るようにしてみましょう。前回と同じように「デバッガ例外通知」が表示されますので[継続(C)]をクリックします。次に表示されるメッセージが作成したメッセージなら成功ね。

Hide image

図05 メッセージ変更

次はエラーチェックをもう少し進めます。最初にあげたチェック項目から「1度計算結果を出したあと、クリアしないでテンキーボタンを押すとき」について考えてみよっ。まずは結果を表示しているかどうかを調べるんですよね。

思い出したところで、コードを書いてみます。テンキーを押したところでチェックしたいのでsbtn1ボタンのOnClickイベントハンドラで挑戦。コードエディタで、sbtn1Clickを探します。エディットに値をセットする前にクリアのコードを書いたほうがいいんだって。「=」が見えていれば、計算結果が表示されているから、lblEqualのVisibleがTrueのときクリアボタンのイベントハンドラを呼ぶのね。beginの下に空白行を作って、太字部分を追加します。

procedure TfrmCalc.sbtn1Click(Sender: TObject);
begin
  if lblEqual.Visible then
    btnClearClick(Sender);

//  edtInput1.Text := edtInput1.Text + '1';

  if lblEnzan.Caption = '' then
    edtInput1.Text := edtInput1.Text + '1'
  else
    edtInput2.Text := edtInput2.Text + '1';
end;

これを残りのテンキーのボタン、全部にコピーするんですね。

イベントハンドラ名を変更します。フォームデザイナで、sbtn1ボタンを選択。オブジェクトインスペクタの[イベント]ページで「入力」の「OnClick」に「TenKeyClick」と入力します。変更を確認するため、入力した「TenKeyClick」の部分をダブルクリック。ちゃんと1行目のsbtn1ClickがTenKeyClickになっていますね。

procedure TfrmCalc.TenKeyClick(Sender: TObject);
begin
  if lblEqual.Visible then
    btnClearClick(Sender);

//  edtInput1.Text := edtInput1.Text + '1';

  if lblEnzan.Caption = '' then
    edtInput1.Text := edtInput1.Text + '1'
  else
    edtInput2.Text := edtInput2.Text + '1';
end;

次に残りのテンキーのイベントハンドラをすべて「TenKeyClick」に変更します。テンキーボタンを選択してオブジェクトインスペクタの[イベント]ページで「入力」の「OnClick」でプルダウンボタンをクリックして、「TenKeyClick」を選択します。

Tagプロパティから設定します。フォームデザイナでsbtn1ボタンを選択してオブジェクトインスペクタの[プロパティ]ページで「その他」の「Tag」プロパティに「1」を入力します。同様にしてsbtn2には「2」のように、テンキーボタンすべてにTagプロパティを設定します。sbtn0は「0」のままでいいので変更しません。

次にコードを書き換えます。コードエディタでTenKeyClickイベントハンドラを探しましょう。Senderを型変換するためのTSpeedButton型の変数を1つと、Tagプロパティを型変換するstring型の変数を１つ宣言。太字部分を追加します。

procedure TfrmCalc.TenKeyClick(Sender: TObject);
var
  TenKey    : TSpeedButton;
  TenKeyNum : string;
begin
  ...
  ...
end;

変数の用意ができたら、型変換のコードを書きます。最後のエディットに「'1'」を代入している部分を、TenKeyNum変数を代入するように書き換えましょう。太字部分を記述します。

procedure TfrmCalc.TenKeyClick(Sender: TObject);
var
  TenKey : TSpeedButton;
  TenKeyNum : string;
begin
  if lblEqual.Visible then
    btnClearClick(Sender);

  TenKey := Sender as TSpeedButton;
  TenKeyNum := IntToStr(TenKey.Tag);

//  edtInput1.Text := edtInput1.Text + '1';

  if lblEnzan.Caption = '' then
    edtInput1.Text := edtInput1.Text + TenKeyNum
  else
    edtInput2.Text := edtInput2.Text + TenKeyNum;
end;

保存して実行してみます。今までと同じように動けばOKですって。

次は「edtInput1に値が入っていないのに演算ボタンを押すとき」を考えます。if文でメッセージボックスを表示すればいいような気がする。教えて、高橋先生！

raise Exception.Create('エラーメッセージ');

じゃあ、例外を作ってみます。呪文は、「raiseではじめて、Exception.Create」。コードエディタで、btnTasuClickイベントハンドラを探して、太字部分を追加します。

procedure TfrmCalc.btnTasuClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
    raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');

  lblEnzan.Caption := '＋';

  edtInput1.Color := clYellow;
  edtInput2.Color := clWhite;
end;

演算ボタンに関係するエラーチェックがもう1つあるけど…

えっと、「edtInput2に値が入っているのに演算ボタンを押すとき」。これは、edtInput2の値を消して入力しなおしてもらおうかな。

メッセージは「値を入力しなおしてください。」と出します。メッセージの前にedtInput2エディットの値をクリアしとかなくっちゃ。

procedure TfrmCalc.btnTasuClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
    raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');
  if edtInput2.Text <> '' then
    edtInput2.Text := '';
    ShowMessage('値を入力しなおしてください。');
  ...
  ...
end;

保存して実行すると、あれ？いつも必ずメッセージが表示されるようになっちゃった。どこがおかしいのかな？

if 条件文 then
begin
  //処理文1;
  //処理文2;
end;

if 条件文 then
begin
  //処理文1;
  //処理文2;
end //ここには「;」は入れない
else
begin
  //処理文3;
  //処理文4;
end; //ここには「;」を入れる

ではさっきの文を書き直しましょう。太字部分を追加します。

procedure TfrmCalc.btnTasuClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
    raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');
  if edtInput2.Text <> '' then
  begin
    edtInput2.Text := '';
    ShowMessage('値を入力しなおしてください。');
  end;

  lblEnzan.Caption := '＋';

  edtInput1.Color := clYellow;
  edtInput2.Color := clWhite;
end;

最後の「値が何も入っていないのに計算ボタンを押すとき」と「edtInput1だけに値が入っていて計算ボタンを押したとき」はStrToIntDefにしたのでどちらの場合も「0」が結果に表示されて問題がないので、そのままにします。保存して実行します。間違いがなさそうなら、ほかのbtnHikuClick、btnKakeruClick、btnWaruClickに、今追加した二つのif文をコピーしましょう。コードエディタでコピーして貼り付けます。太字部分を追加します。コード全体も合わせて確認します。

procedure TfrmCalc.btnClearClick(Sender: TObject);
begin
  edtInput1.Text := '';
  edtInput1.Color := clWhite;
  edtInput2.Text := '';
  edtInput2.Color := clYellow;
  edtKekka.Text := '';
  edtKekka.Color := clYellow;
  lblEnzan.Caption := '';
  lblEqual.Visible := False;
end;

procedure TfrmCalc.btnCopyClick(Sender: TObject);
begin
  edtKekka.SelectAll;
  edtKekka.CopyToClipboard;
  btnClearClick(Sender);
  edtInput1.PasteFromClipboard;
end;

procedure TfrmCalc.btnHikuClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
     raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');

  if edtInput2.Text <> '' then
  begin
    edtInput2.Text := '';
    ShowMessage('値を入力しなおしてください。');
  end;

  lblEnzan.Caption := '－';

  edtInput1.Color := clYellow;
  edtInput2.Color := clWhite;

end;

procedure TfrmCalc.btnKakeruClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
     raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');

  if edtInput2.Text <> '' then
  begin
      edtInput2.Text := '';
    ShowMessage('値を入力しなおしてください。');
  end;

  lblEnzan.Caption := '×';

  edtInput1.Color := clYellow;
  edtInput2.Color := clWhite;
end;

procedure TfrmCalc.btnKeisanClick(Sender: TObject);
var
  Num1 : Integer;
  Num2 : Integer;
  Ans : Double;
begin
  Num1 := StrToIntDef(edtInput1.Text, 0);
  Num2 := StrToIntDef(edtInput2.Text, 0);
  if lblEnzan.Caption = '＋' then
    Ans := Num1 + Num2
  else if lblEnzan.Caption = '－' then
    Ans := Num1 - Num2
  else if lblEnzan.Caption = '×' then
    Ans := Num1 * Num2
  else if lblEnzan.Caption = '÷' then
    try
      Ans := Num1 / Num2;
    except
      edtInput2.Text := '';
      raise Exception.Create('0で割ることはできません。クリアボタンをクリックするか、正しい値を入力してください。');
    end
  else
    Ans := Num1;
  edtInput2.Color := clYellow;
  edtKekka.Color := clWhite;
  lblEqual.Visible := True;
  edtKekka.Text := FloatToStr(Ans);
end;

procedure TfrmCalc.btnTasuClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
     raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');

  if edtInput2.Text <> '' then
  begin
    edtInput2.Text := '';
    ShowMessage('値を入力しなおしてください。');
  end;

  lblEnzan.Caption := '＋';

  edtInput1.Color := clYellow;
  edtInput2.Color := clWhite;
end;

procedure TfrmCalc.btnWaruClick(Sender: TObject);
begin
  if edtInput1.Text = '' then
     raise Exception.Create('値を入力してから演算ボタンをクリックしましょう。');

  if edtInput2.Text <> '' then
  begin
    edtInput2.Text := '';
    ShowMessage('値を入力しなおしてください。');
  end;

  lblEnzan.Caption := '÷';

  edtInput1.Color := clYellow;
  edtInput2.Color := clWhite;
end;

procedure TfrmCalc.TenKeyClick(Sender: TObject);
var
  TenKey : TSpeedButton;
  TenKeyNum : string;
begin
  if lblEqual.Visible then
    btnClearClick(Sender);

  TenKey := Sender as TSpeedButton;
  TenKeyNum := IntToStr(TenKey.Tag);

  if lblEnzan.Caption = '' then
    edtInput1.Text := edtInput1.Text + TenKeyNum
  else
    edtInput2.Text := edtInput2.Text + TenKeyNum;
end;

コピーしたらそれほど大変ではなかったわね。保存して実行してみます。

• 1度計算結果を出したあと、クリアしないでテンキーボタンを押すとき　⇒　値をクリア
• edtInput1に値が入っていないのに演算ボタンを押すとき　⇒　エラーを表示
• edtInput2に値が入っているのに演算ボタンを押すとき　⇒　エラーを表示
• 値が何も入っていないのに計算ボタンを押すとき　⇒　計算結果に「０」を表示
• edtInput1だけに値が入っていて計算ボタンを押したとき　⇒　edtInput1の値を計算結果に表示

これらの項目がすべて解決したか、チェックしてみよっと。

ちゃんと動いたからこれで完成ね。完成までの道のりは長かったなぁ。でもプログラミングしてるって感じのものができました。

Turbo Delphiを[×]閉じるボタンなどで終了します。次にマイコンピュータのアイコンなどから「Calclator.bdsproj」を保存したフォルダの中を参照します。「Calclator.exe」を探してダブルクリックなどで起動してみます。エラーを起こしても、デバッガ例外通知は表示されません。

Hide image

図09 完成図