+ -
当前位置:首页 → 问答吧 → TCheckListEdit怎样遍历取得选中的值

TCheckListEdit怎样遍历取得选中的值

时间:2011-11-18

来源:互联网

TCheckListEdit是多选的下拉框 控件


TCheckListEdit.text可以取得所有选中的项

我现在想遍历取得选中的项,这个怎样实现阿

作者: xk_su   发布时间: 2011-11-18

他肯定有Items之类的

作者: bdmh   发布时间: 2011-11-18

TCheckListEdit是什么控件?

既然是下拉框,那應該有Items之類的,比如
for i:=0 to TCheckListEdit.Items.Count-1 do
showmessage(TCheckListEdit.Items[i]);

作者: kaikai_kk   发布时间: 2011-11-18

有CheckListEdit.Items.ValueFromIndex

CheckListEdit.Items.ValueS


但是读出来的是乱码....

这个就是多选的下拉框

作者: xk_su   发布时间: 2011-11-18

http://www.delphiplanet.com/ann/ann2491.asp

作者: xk_su   发布时间: 2011-11-18

TCheckListEdit.text的内容是逗号分隔的如:


张三,李四,王五


delphi有什么函数可以把它们分解开么??



如果分解很麻烦,能不能这样
TCheckListEdit.text的值是string类型,
TCheckListEdit.items是tstringlist

可取出items的每一项,看看是否包含在TCheckListEdit.text中来判断该项是否被选中。

delphi有什么函数可以判断一个字符串是否包含另一个字符串么

作者: xk_su   发布时间: 2011-11-18

既然TCheckListEdit.text就是选中的项的值,那就拆一下:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  with TStringList.Create do
  begin
  DelimitedText:=TCheckListEdit.text;
  For i:=0 to Count-1 do
  showmessage(Strings[i]);
  Free;
  end;
end;

作者: kaikai_kk   发布时间: 2011-11-18