能新建一个abcd.pas文件,按照下面写法 unit abcd;//这里要和文件名一样,如文件名叫AABB.pas,这里就写成unit AABBinterfaceuses Windows, Messages, Classes, SysUtils, Forms, Graphics; function func1(a:Integer):Integer;implementation function func1(a:Integer):Integer; begin Result:=a+1; end;end.然后要使用的时候,在其它文件里的uses中增加abcd,就能在其它文件里使用func1这个函数了。
unit abcd;//这里要和文件名一样,如文件名叫AABB.pas,这里就写成unit AABBinterfaceuses
Windows, Messages, Classes, SysUtils, Forms, Graphics; function func1(a:Integer):Integer;implementation function func1(a:Integer):Integer;
begin
Result:=a+1;
end;end.然后要使用的时候,在其它文件里的uses中增加abcd,就能在其它文件里使用func1这个函数了。