delphi调用另一单元函数问题

unit common; //在这个单元定义下边一个函数
interface
uses
classes,sysutils,windows; {public units}

function add(x,y:integer):string; {声明函数}

implementation

function add(x,y:integer):string;
begin
result:=inttostr(x+y);
end;

以下在主窗体单元调用：
var
Form1: TForm1;
implementation

uses common;

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
这里怎么写？？
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
z:string;
begin
a:=2;
b:=3;
z;= //这里通过调用common单元的add()函数得出结果"5"，怎么写？？
showmessage(z);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
s: string;
begin
s:= add(a,b);
end;
//因为定义的函数返回类型是string, 所以还要定义一个string变量.

如果你想在其它单元也使用这个函数的话 就在public内定义 public function get_item_list(tbname, fdname: string; alist: tstrings): boolean; 然后在implementation下写实现的代码就可以了! 其它单元调用之前先uses一下!

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息