一般性问题：变量的另一文件的引用

Question

如何在一个FORM中设了一个变量，如何在另一个form中引用？

Answer 1

在 Form1 中
var Form1:TForm1;
    i:integer;
begin;
i=1;
end;
在 Form2 中
begin
if unit1.i>1 then
 showmessage('ok');
end;

Answer 2

unit1
type
  TForm1 = class(TForm)
     ......
   public
     i:integer;
   end;
var
  Form1: TForm;unit2
type
  ......
var
  Form2:TFormimplementation
uses unit1;
.....
begin
  showmessage(inttostr(Form1.i));
end;