![]() |
という状態で「足す」ボタンを押すと足し算して |
![]() |
と表示するプログラムを作ってみましょう。 |
まずはフォーム上にコンポーネントを配置して、次の画面を作ってください。
コンポーネント | Name |
---|---|
上のエディット | Edit1 |
中のエディット | Edit2 |
下のエディット | EditResult |
ボタン | ButtonAdd |
次に、ボタンを押したときの動作をプログラミングします。「ButtonAdd」の「OnClick」イベントに対するプログラム(イベントハンドラ)を書きましょう。下線部はどのように書くとよいでしょうか?
procedure TForm1.ButtonAddClick(Sender: TObject); begin := + ; end;
実行結果を確かめましょう。
このプログラムで、左上のエディットに「佐藤」、左中のエディットに「さん」と入れて「足す」ボタンを押すと、左下のエディットには何と表示されますか?
実は現段階では、14+31=45 のような数の足し算を実現できません。どうしたらいいでしょう? …考えながら次節へ進んで下さい。