怎么获取FormActivate里定义的变量值

Question

我是这样写的
procedure TzhuceForm.FormActivate(Sender: TObject);
 var
  i:integer;
  aa:string;
begin
  randomize;
  i:=random(99)+1;
  edit1.Text:=inttostr(i);
  end;然后我加了一个BitBtn1 我想在这里单击事件里 想得到上面那个i的数值 
怎么写  等待  写详细 谢谢

Answer 1

把I设置成全局变量，或者类成员，再或者const {J+}{J-}

Answer 2

procedure TzhuceForm.FormActivate(Sender: TObject);
var
  i:integer;
  aa:string;
begin
  randomize;
  i:=random(99)+1;
  self.tag:=inttostr(i);
  end; 

Answer 3

在BitBtn1Click里面怎么写啊？
procedure TzhuceForm.BitBtn1Click(Sender: TObject);beginend;

Answer 4

procedure TzhuceForm.BitBtn1Click(Sender: TObject);begin
  showmessage(inttostr(self.tag));
end;

Answer 5

self.tag 这个是什么啊 麻烦解释下

Answer 6

借作DELPHI帮助。Stores an integer value as part of a component. Delphi syntax:property Tag: Longint;C++ syntax:__property int Tag = {read=FTag, write=FTag, default=0};DescriptionTag has no predefined meaning. The Tag property is provided for the convenience of developers. It can be used for storing an additional integer value or it can be typecast to any 32-bit value such as a component reference or a pointer.

Answer 7

定义一个全局变量i;
var i:integer;