// 定議一個類,就一個方法
type
TClass1 = class
public
procedure Test();
end;// 實現這個方法,顯示一個 messageBox
procedure TClass1.Test;
begin
ShowMessage('fdsad');
end;// 我這樣調用procedure TForm1.Button4Click(Sender: TObject);
var
obj : TClass1;
begin
obj := TClass1.Create;
obj := nil; // <--- 注意這裡。我把 obj 設成 nil 了
obj.Test;
obj.Free;
end;這個代碼會出錯嗎????
一開始我也認為鐵定出錯。但後來在 Delphi 時寫出以上代碼。運行。居然沒錯。 ShowMessage 也正常出現了
為什麼會這樣?????
type
TClass1 = class
public
procedure Test();
end;// 實現這個方法,顯示一個 messageBox
procedure TClass1.Test;
begin
ShowMessage('fdsad');
end;// 我這樣調用procedure TForm1.Button4Click(Sender: TObject);
var
obj : TClass1;
begin
obj := TClass1.Create;
obj := nil; // <--- 注意這裡。我把 obj 設成 nil 了
obj.Test;
obj.Free;
end;這個代碼會出錯嗎????
一開始我也認為鐵定出錯。但後來在 Delphi 時寫出以上代碼。運行。居然沒錯。 ShowMessage 也正常出現了
為什麼會這樣?????
解决方案 »
- 利用ADO组件使用编程方法如何连接access数据库并操作?
- 各位高手,请问如何让软件屏蔽热键 ctrl+alt+delete
- 能否对clientdataset里的数据直接进行查询操作
- 有关图形分析的问题!
- *********************火急求救*********************
- 两个很菜的问题
- MM的病终于好了,可以天天见面了,高兴...
- 声明两个过程放在代码的什么地方高手们
- 怎样定义这样的函数,或者过程,以及我怎样去调用她?
- C或者delphi下如何实现ASN1编解码?编解码函数是否需要自己编写啊!!!求高人指点
- 动态排列控件
- 谁试过ListView里面一项最多能放多少的数据?
調用對象的方法是, eax 放實例指針,而直接用 call TClass.test()而 TClass.Test 正好沒有用到 實例指針,所以不會出錯