主题:函數聲明是放在那個位置阿?
aikede
[专家分:0] 发布于 2006-09-08 10:07:00
函數聲明是放在那個位置阿?幫我說說阿,急用
回复列表 (共1个回复)
沙发
axmanhz [专家分:620] 发布于 2006-09-08 22:10:00
函數可以定义在单元文件的implementation后,若该函數是类中的,还需要在类中加以聲明。看下面单元文件:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function Test(x,y: Integer): Integer; // 聲明
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.Test(x,y: Integer): Integer; //定义
begin
result := x+y;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(IntToStr(Test(10,18))); // 调用
end;
end.
欢迎访问:http://axmanhz.sru.cn/
我来回复