如果只在本单元使用并且不是类方法或者过程,可以不用声明,在本窗体可以调用 var Form1: TForm1;implementation{$R *.dfm} procedure abc; begin showmessage('asdfasdfasf'); end;
是不是类似这样的: ------------------------------- //上面省略 var Form1: TForm1;implementation {$R *.dfm}function Add(a,b:Integer):Integer; begin result := a+b; end;procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(Add(1,2))); {调用方必需在函数后面} end;end.
var
Form1: TForm1;implementation{$R *.dfm}
procedure abc;
begin
showmessage('asdfasdfasf');
end;
-------------------------------
//上面省略
var
Form1: TForm1;implementation
{$R *.dfm}function Add(a,b:Integer):Integer;
begin
result := a+b;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Add(1,2)));
{调用方必需在函数后面}
end;end.