关于控件数组中控件的Free问题(100分)

R

richard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-27

• #1

为何下面的代码有时会出错：
for i:=0 to (length(vsCellCtrlArr)-1) do
if Assigned(VsCellCtrlArr) then vsCellCtrlArr.free;
其中 VsCellCtrlArr 为一控件数组。

请教如何才能安全地将控件数组中控件Free掉？

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-27

• #2

>>

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-27

• #3

是不是控件处于active状态？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-27

• #4

反过来就可以了
for i:=(length(vsCellCtrlArr)-1) to 0 do
if Assigned(VsCellCtrlArr) then vsCellCtrlArr.free;

 

R

richard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-31

• #5

cAkk的方法我试了，反过来之后一运行就出错!

 

N

ningliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-31

• #6

1.你原来的控件数组每一个元素是否都赋过值?或创建过实例?
2.最好已开始将所有元素 := nil,然后再创建,看你的程序好像不是所有的
数组元素都有对应的控件.

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-31

• #7

destructor Destroy;
begin
for i:=0 to (length(vsCellCtrlArr)-1) do
if Assigned(VsCellCtrlArr) then
begin
vsCellCtrlArr.free;
vsCellCtrlArr := nil;
end;
inherited;
end;
如果你的控件是可视控件或者有Parent的控件并且Parent不是你的控件自
身的话, 需要在你的控件中加入下面代码一保证能正确释放:
procedure Notification(AComponent: TComponent; Operation: TOperation); override;

procedure Notification(AComonent: TComponent; Operation: TOperation);
var
i: Integer;
begin
inherited;
if Operation = opMove then
for i := 0 to length(vsCellCtrlArr)-1 do
if vsCellCtrlArr = AComponent then
begin
vsCellCtrlArr := nil;
break;
end;
end;

 

H

hansong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-31

• #8

出什么错？list index ....?

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-01

• #9

是不是有控件在使用中? free它导致其它控件错误?

 

R

richard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-02

• #10

接受答案了.

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-03

• #11

兄弟, 最后怎么解决的???

 

R

richard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-11

• #12

只要 vsCellCtrlArr.free 后再 vsCellCtrlArr：=nil 就可以了!