W
wlmmlw
Unregistered / Unconfirmed
GUEST, unregistred user!
Tmy = class
private
FValue: integer;
end;
var
v: Tmy;
procedure
var
myv: Tmy
begin
myv := Tmy.create;
v := myv;
end;
--------------------------------------------------------
退出procedure之后,v对象是可用的。
但如果换成是:
Tmy = class( , Imy);
var
iv: Imy;
procedure
var
myv: Tmy;
begin
myv := Tmy.create;
iv := myv;
end;
--------------------------------
则退出procedure后iv是不可用的。为什么?
private
FValue: integer;
end;
var
v: Tmy;
procedure
var
myv: Tmy
begin
myv := Tmy.create;
v := myv;
end;
--------------------------------------------------------
退出procedure之后,v对象是可用的。
但如果换成是:
Tmy = class( , Imy);
var
iv: Imy;
procedure
var
myv: Tmy;
begin
myv := Tmy.create;
iv := myv;
end;
--------------------------------
则退出procedure后iv是不可用的。为什么?