我想把函數寫在按鈕事件的下面,那函數前面該寫哪個路徑,是按鈕嗎?Tbutton.function hs_99(x,y:integer):integer;好像是錯的，該怎麽寫呢？ 

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
x:=5;
y:=10;
z:=hs_99(x,y);
Label1.Caption:=inttostr(z);
end;
function hs_99(x,y:integer):integer;
begin
hs_99:=x y;
end;
[/code]

Delphi在compile的時候
是從上到下的往下編譯的
而你的hs_99放在Button1Click下方
所以當它在Compile時，因為沒有先讀到hs_99
就會有問題了
所以只要把hs_99放在Button1Click上方就可以了

[code delphi]
function hs_99(x,y:integer):integer;
begin
hs_99:=x y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
x:=5;
y:=10;
z:=hs_99(x,y);
Label1.Caption:=inttostr(z);
end;


[/code]

編輯記錄

這樣也可以，但我個人建議除非hs_99是在這個Unit裡面常引用到的，且此Unit的程式碼有一定的量才用這個forward方式。
躲在implementation裡面的forward也就表示其可視範圍只在這個Unit。

[code delphi]
implementation

function hs_99(x,y:integer):integer;forward;

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
x:=5;
y:=10;
z:=hs_99(x,y);
Label1.Caption:=inttostr(z);
end;

function hs_99(x,y:integer):integer;
begin
hs_99:=x y;
end;
[/code]

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！