dephi如何调用过程或函数? ( 积分: 50 )

dephi如何调用过程或函数?
procedure TForm1.Button2Click(Sender: TObject);
begin
Calculate(112);
//调用
end;
end.

procedure Calculate(CalNo:Integer);
//为何这里要加分号,好象不加也可以?
begin
CalNo := CalNo*10;
end;
-----------------------------
可结果就是出错
[Error] Unit1.pas(56): Undeclared identifier: 'Calculate'

procedure TForm1.Button2Click(Sender: TObject);
var
a:integer;
begin
a:=112;
Calculate(a);
//调用
end;
end.

procedure Calculate(var CalNo:Integer);
//为何这里要加分号,好象不加也可以?
begin
CalNo := CalNo*10;
end;

好久没有在大富翁上回贴了，楼主你把两个函数的位置对调一下就可以了。
procedure Calculate(CalNo:Integer);
//为何这里要加分号,好象不加也可以?
begin
CalNo := CalNo*10;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Calculate(112);
//调用
end;
end.

如楼上所说,
或写成rocedure Tform1.Calculate(CalNo:Integer);
begin
CalNo := CalNo*10;
end;

先声明后调用，
或者把被调用得函数放在调用该函数的函数的前面

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Calculate(var CalNo:Integer);
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=112;
Calculate(i);
//调用
end;

procedure TForm1.Calculate(var CalNo:Integer);
begin
CalNo := CalNo*10;
end;

end.

先声明后调用,不加分号有时ide不会报的