请问 这个语句的作用是什么？？？？？ 关于Tstrings 的使用！！！！！！！！

[fsqman]

请问 这个语句的作用是什么？？？？？ 关于Tstrings 的使用！！！！！！！！


var
boxList: Tstrings;
begin
boxList := TStringList.Create;
//下面的语句是什么？？？？？？
boxList.AddObject('1', Tpanel(panel1));
end;

--------------

//下面的语句是什么？？？？？？


Tpanel(BoxList.Objects[1]).Left:=122;


----------------------------------------------------------------

请问上面语句的作用是什么？？ 它的好处是什么？？

[lwgygz]

看这个http://community.csdn.net/Expert/topic/3679/3679506.xml?temp=.377804

[anjiechang]

应该是把这个字符串类放入Tpanel中吧
www.31qq.com支持我

[10975037]

(BoxList.Objects[1] as Tpanel).Left:=122;

这么写楼主能看懂?

TStrings类在AddObject的第二个参数里可以放一个四字节的变量.(大多数是放Pointer)

boxList.AddObject('1', Tpanel(panel1));这句的意思应该是把一个TPanel的指针存在TStrings里.
这样BoxList里的一个String就可以对应一个Panel..

[fsqman]

那么如何删除一个Object呢

[晨池]

第二个语句就是把第一个语句添加的TPanel的Left改下啊

[lwgygz]

boxList.Items.Delete(n);就可以删除第n项
如果不放心可以这样:
Dispose(Tpanel(boxList.Items.Objects[n]));
boxList.Items.Delete(n);