線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1355
推到 Plurk!
推到 Facebook!

關於宣告function的問題

答題得分者是:hagar
chjunsen
一般會員


發表:38
回覆:15
積分:10
註冊:2006-10-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-07-08 06:40:30 IP:114.38.xxx.xxx 訂閱

各位大大請教
以下程式想宣告一個函式get_a
然後我有個疑問.我在程式碼中分別宣告這兩個位置有何差異.?我知道只能宣告一個.寫兩個只是比較方便問問題



[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure get_a();
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
procedure get_a();

implementation
{$R *.dfm}
procedure TForm1.get_a();
var lv_a:integer;
begin
//---
end;

end.
[/code]

hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-07-09 08:30:09 IP:210.242.xxx.xxx 未訂閱
  1. type
  2. TForm1 = class(TForm)
  3. Button1: TButton;
  4. procedure Button1Click(Sender: TObject);
  5. procedure get_a();
  6. end;
上面的宣告表示 get_a() 為 TForm1 的 method, 呼叫 get_a() 時需建立一個 TForm1 的物件
  1. var
  2. Form1: TForm1;
  3. procedure get_a();
宣告在這裡則表示 get_a() 是一個普通的 procedure, 呼叫 get_a() 時只要 uses Unit1 即可
系統時間:2024-03-28 20:37:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!