delphi里自己写的procedure和function要怎么声明一下才可以用呀?

Question

不好意思，问这么弱的问题
但是看了几本书都没找到怎么做
我直接写
function Calc(X,Y: Integer): Integer;
begin
  result:=x*y;
end;
然后在其他地方调用，delphi说我没定义
procedure也是同样的情况
我用delphi7＋win98

Answer 1

在implementation前边也加上这句话：
function Calc(X,Y: Integer): Integer;

Answer 2

声明是要声明的，但是procedure和function其实没什么大的区别给你一个我写的！Procedure ReadDBConn(var CnSource,CnBase,CnUID,CnPWD:string);这是声明
Procedure ReadDBConn(var CnSource,CnBase,CnUID,CnPWD:string);
var    //读取下面DBSource,DBBase,UID,PWD参数beginend;
然后调用的时候readdbconn(cnnsource,cnnbase,cnnuid,cnnpwd);