3-8 変数 (2) ―宣言して使う変数―

Visible を False にすると、EditTemp は画面から消えてしまうので、Height や Width, Color などのプロパティにはどんな値を入れても意味がないですね。入れ替えに必要なのは、Text プロパティだけなのです。中継用エディットを使わない、もっとよい方法はないのでしょうか。

ここで、新しい方法を試してみます。まずは、EditTemp を削除してください。EditTemp を削除したので、EditTemp を中継欄に使うことはできなくなりました。そこで、今消した EditTemp のかわりにもっと単純な中継欄を作ります。procedure と begin の間に、次のように付け加えてください。

procedure TForm1.ButtonSwapClick(Sender: TObject);
var
  temp: String;
begin
  EditTemp.Text := Edit1.Text;
  Edit1.Text := Edit2.Text;
  Edit2.Text := EditTemp.Text;
end;

EditTemp はなくなりましたが、これで temp という入れ物ができ、temp が EditTemp.Text のかわりをします。EditTemp.Text は String 型だったので、そのかわりとなる temp も String 型でなくてはなりません。そのため「temp: String;」と書きます。(もし Integer 型が必要なら「temp: Integer;」と書きます。)

なお、「var」は「これから (temp のような) 入れ物を宣言 (用意) するよ」という宣言です。

procedure TForm1.ButtonChangeClick(Sender: TObject);
var
  temp: String;
begin
              := Edit1.Text;
  Edit1.Text := Edit2.Text;
  Edit2.Text :=             ;
end;

temp のように値を保存しておく入れ物を「変数」といいます。今の場合 temp は画面に現れない「エディットコンポーネントの Text プロパティ」と考えて結構です。変数の名前は temp でなくとも自由につけても構いませんが、なるべく一目見て内容がわかる名前をつけましょう。なお、変数宣言の「var」は変数を意味する「variable」の略です。

「temp」という変数を用いることは、プログラムにとって必要充分な機能を提供することになります。余計なものを使わずにこうして必要充分なものを用いるようにすると、プログラムが速くなり、プログラムサイズが小さくなります。

procedure TForm1.ButtonAddClick(Sender: TObject);
var
  a:                  ;
  b:                  ;
  c:                  ;
begin
                   := StrToInt(Edit1.Text);
                   := StrToInt(Edit2.Text);
                   :=                  +                 ;
  EditResult.Text := IntToStr(                );
end;

a: Integer;
b: Integer;
c: Integer;

a, b, c: Integer;

a: String;
b: String;
c: String;

a, b, c: String;