紧急求助，在线等待！ ( 积分: 18 )

我想在一个unit单元中写公共函数，在其他窗口中调用该函数怎么处理！希望能给一个实例！

我想在一个unit单元中写公共函数，在其他窗口中调用该函数怎么处理！希望能给一个实例！

unit unitpub
写你的函数
unit unitother
use unitpub;//注意要use你的公共单元
调用函数

先在一个unit单元中写你要公共函数，
然后在你要引用该函数的单元的uses字句中，加上公共函数所在的单元的文件名

我就是按照newsmile说的做啊，可是好象不行，在本页面倒是可以！

在interface部分要有输出函数的声明的

能不能给个具体的例子！

需要在接口部分添加函数的定义，如下：
unit unitname;
interface

function test(Astr:string):string;

implementation
function test(Astr:string):string;
begin
//实现
end;

给你一个例子
//这是主程序
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, unitpub;//注意这里

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(getmax(strtoint(edit1.text), strtoint(edit2.text))));
end;

end.

//这是公共单元
unit Unitpub;

interface
function getmax(x, y: integer): integer;

implementation

function getmax(x, y: integer): integer;
begin
if x > y then
result := x
else
result := y;
end;
end.

可以了，谢谢各位了！