08/06/03 10:27:05
DelphiのGUIプログラミングはプログラミングの仕方がちょっと独特だから最初は戸惑うかもな
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
num: Integer; // <- 変数はここ
public
{ Public 宣言 }
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
// 変数の初期値はここで設定
num := 1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// ボタンが押されるたびに呼び出される
// なのでループを書く必要はない
Memo1.Lines.Add(IntToStr(num));
num := num * 2;
end;
end.