函数的引用(50分)

unit2要引用unit1中的一个函数，具体怎么操作？详细点！（在unit1中怎么声明函数，在unit2中又如何引用？）

在unit2 uses 中加入 Unit1<br>不用声明 <br>在用的时候就<br>TFROM1.函数名称（）

这样的问题应该给30000分,才有人回答,大家都不是老师

这个比较基础啊，网上据介绍 delphi 的都有说的

---------------------------------------------<br>unit Unit1;<br><br>type TForm1=class(TForm)<br>&nbsp; &nbsp; &nbsp; &nbsp;……<br>&nbsp; &nbsp; &nbsp;public<br>&nbsp; &nbsp; &nbsp; &nbsp;procedure a1;<br>&nbsp; &nbsp; &nbsp;end;<br><br>procedure TForm1.a1;<br>begin<br>&nbsp; ……<br>end;<br><br>---------------------------------------------<br>unit Unit2;<br><br>type TForm2=class(TForm)<br>&nbsp; &nbsp; &nbsp; &nbsp;……<br>&nbsp; &nbsp; &nbsp;public<br>&nbsp; &nbsp; &nbsp; &nbsp;procedure a2;<br>&nbsp; &nbsp; &nbsp;end;<br><br>uses Unit1;<br><br>procedure TForm2.a2;<br>begin<br>&nbsp; Unit1.a1;<br>end;

如上贴所指,一头一尾,或者建第三个UNIT.

在unit2 uses 中加入 Unit1<br>不用声明 <br>在用的时候就<br>TFROM1.函数名称（） &nbsp;<br><br>？？？胡说八道