请问能不能将自己写的函数写入一个独立的单元，然后在任何其它单元都可以直接引用呢？ ( 积分: 10 )

能的话如何操作呢？

将这个函数写在一个PAS里面，在其它单元里面引用这个PAS就可以使用这个函数了。

新建一个单元文件,把函数写进去.然后把单元文件加入到工程,在相关模块USES这个文件就可以调用了.

unit Unit1; //需要调用“我的函数”的单元
interface
uses
Windows, Messages, SysUtils,我的函数; //放在这里，不要放在后面的Uses部分！
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
...

unit PubUnit;
interface
uses
Windows, Messages, SysUtils;

Procedure MyProc;
Function MyFun:Boolean;

implementation

Procedure MyProc;
begin
end;

Function MyFun:Boolean;
begin
result:=true;
end;

end.
保存扇面的代码到pub.PAs

unit Unit1; //需要调用“我的函数”的单元
interface
uses
Windows, Messages, SysUtils,...
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

uses
pub.pas; // 在此引用;

procedure tform1button1click();
begin
myproc;
showmessage(inttostr(integer(myfun)));
end;

...

接受答案了.