L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
variant类型转换出现invalid variant type 错误
我用的 dxtreelist里有checkbox我想用循环判断那个checkbox被选中，用的代码如下：
procedure TSelectChan.Button1Click(Sender: TObject);
var
i:integer;
begin
if dxtreelist.Items.Values[1]=true then //values是variant类型
showmessage('asd');
end;
但是运行提示 invalid variant type conversion错误
如果我将 if dxtreelist.Items.Values[1]=true里的items改为items[1]就可以
查了查以前的资料，好象是第一次的时候我的dxtreelist.Items.Values[1]为空，
所以会报错，可是我用强制转换dxtreelist.Items.Values[1].asboolean=true也不行啊。
该怎么处理啊
我用的 dxtreelist里有checkbox我想用循环判断那个checkbox被选中，用的代码如下：
procedure TSelectChan.Button1Click(Sender: TObject);
var
i:integer;
begin
if dxtreelist.Items.Values[1]=true then //values是variant类型
showmessage('asd');
end;
但是运行提示 invalid variant type conversion错误
如果我将 if dxtreelist.Items.Values[1]=true里的items改为items[1]就可以
查了查以前的资料，好象是第一次的时候我的dxtreelist.Items.Values[1]为空，
所以会报错，可是我用强制转换dxtreelist.Items.Values[1].asboolean=true也不行啊。
该怎么处理啊