FreeAndNil的疑惑(5)

Z

zybzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-19

• #1

for I := Form1.ComponentCount - 1 downto 0 do begin obj := Form1.Components; if Form1.Components IS TEdit then FreeAndNil(obj); end;这样写运行正常freeAndNil(Form1.Components) 就不能编译，不知为啥

 

T

Tuatara

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-19

• #2

看看FreeAndNil的定义吧 var obj。他的参数必须是变参。而Components是property定义的，当然不能作为var 参数传递。

 

A

apiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-19

• #3

楼上正解