TCheckListEdit怎样遍历取得选中的值

Question

TCheckListEdit是多选的下拉框 控件
TCheckListEdit.text可以取得所有选中的项我现在想遍历取得选中的项，这个怎样实现阿

Answer 1

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

Answer 2

有CheckListEdit.Items.ValueFromIndexCheckListEdit.Items.ValueS
但是读出来的是乱码....这个就是多选的下拉框

Answer 3

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

Answer 4

TCheckListEdit.text的内容是逗号分隔的如：
张三,李四,王五
delphi有什么函数可以把它们分解开么？？如果分解很麻烦，能不能这样
TCheckListEdit.text的值是string类型，
TCheckListEdit.items是tstringlist可取出items的每一项，看看是否包含在TCheckListEdit.text中来判断该项是否被选中。delphi有什么函数可以判断一个字符串是否包含另一个字符串么

Answer 5

既然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;