关于checklistbox的问题 100分啦 ！！！！！！！

Question

我的问题是这样的
1:在一个表里一个字段中有 " 小王,小李,小赵'' 内容（就这个格式并不一定就这几个字段） 我怎样把小王，小李，小赵一一的取出来？
2：在checklistbox里显示的是 □小王 □小李 □小赵 □小高 怎样把在小王，小李，小赵上打上勾？？

Answer 1

var
  i: integer;
begin
  CheckListBox1.Items.Delimiter := ',';
  CheckListBox1.Items.DelimitedText := '小王,小李,小赵';  for i := 0 to CheckListBox1.Items.Count - 1 do
    CheckListBox1.Checked[i] := True;end;

Answer 2

1:在一个表里一个字段中有 " 小王,小李,小赵'' 内容（就这个格式并不一定就这几个字段） 我怎样把小王，小李，小赵一一的取出来？用 sL: TStringList; 
sL.Text := '小王,小李,小赵' ;
sL.Delimiter := ',' sL.Strings[0]
 sL.Strings[1]
 
類似這樣的操作分開

Answer 3

query1.sql.clear;
query1.sql.add('select 字段 from 表');
query1.close;
query1.open;query1.first;
checklistbox1.items.clear;
while not query1.eof do
begin
  checklistbox1.items.add(query1.fieldbyname('字段').asstring);
  CheckListBox1.Checked[CheckListBox1.Count-1]:=true;
  query1.next;
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  CheckListBox1.Clear;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from XXX');
  ADOQuery1.Open;  ADOquery1.First;
  //读取
  While ADOQuery1.Eof<>True then
    begin
      CheckListBox1.Items.Add(ADOQuery1.fieldByName('字段名').AsString);
    end;  //选定
  For i:=0 to ADOquery1.RecordCount-1 do
    CheckListBox1.Checked[i]:=True;
end;

Answer 5

to fei19790920
小王,小李,小赵' 是打上勾了 可是小高不再显示了啊
我还想让小高也显示

Answer 6

var
  i: integer;
begin
  CheckListBox1.Items.Delimiter := ',';
  CheckListBox1.Items.DelimitedText := '小王,小李,小赵,小高';  for i := 0 to CheckListBox1.Items.Count - 1 do
  if  CheckListBox1.Items[i]<>'小高' then
    CheckListBox1.Checked[i] := True;end;

Answer 7

var
  i: integer;
begin
  CheckListBox1.Items.Delimiter := ',';
  CheckListBox1.Items.DelimitedText := '小王,小李,小赵,小高';  for i := 0 to CheckListBox1.Items.Count - 1 do
    CheckListBox1.Checked[i] := True;end;你把它加上就行了啊。

Answer 8

begin
  checklistbox1.items.add(query1.fieldbyname('字段').asstring);
  if (query1.fieldbyname('字段').asstring='小高') then
     exit 
  else
    CheckListBox1.Checked[CheckListBox1.Count-1]:=true;
  query1.next;
end;

Answer 9

sorry!!begin
  checklistbox1.items.add(query1.fieldbyname('字段').asstring);
  if (query1.fieldbyname('字段').asstring<>'小高') then
     CheckListBox1.Checked[CheckListBox1.Count-1]:=true;
  query1.next;
end;

Answer 10

经验之谈，最好是下面那么做：
var
  i: integer;
begin
  CheckListBox1.Items.Delimiter := ',';
  CheckListBox1.Items.DelimitedText := '小王,小李,小赵,小高';  for i := 0 to CheckListBox1.Items.Count - 1 do
    CheckListBox1.Checked[i] := CheckListBox1.Items[i]<>'小高';
end;