我想把checklistbox内选中的选项全部添加到table表中的一个字段内，怎么做啊

[juntaopeng]

我是这样写的，但只能在表中添加第一个选中的内容，怎么改
for i:=0 to (clb_button.Items.Count-1) do
if clb_button.Selected[i] then
begin
fieldbyname(’purview’).AsString:=clb_button.items[i];
end;

clb_button是一个checklistbox控件

[juntaopeng]

t

[haoco]

你的想法是对了，但应该这样：

fieldbyname(’purview’).AsString:='';

for i:=0 to (clb_button.Items.Count-1) do
if clb_button.Selected[i] then
begin
fieldbyname(’purview’).AsString:=fieldbyname(’
Purview’).AsString + clb_button.items[i];
end;

[xuejinlong]

你的想法是对了，但应该这样：

var
str : string;
begin

str:='';

for i:=0 to (clb_button.Items.Count-1) do
if clb_button.Selected[i] then
begin
str:=str + clb_button.items[i];
end;

fieldbyname(’purview’).AsString := Str;

end;

///OK

[No_1gogo]

哈哈，来迟了，楼上的很对：）

[juntaopeng]

按上面那样我怎么只能把checklistbox内的最后一项内容加入table表中呢？怎么回事啊？

[No_1gogo]

应该是这样：

var
str : string;
begin

str:='';

for i:=0 to (clb_button.Items.Count-1) do
str:=str + clb_button.items[i];

fieldbyname(’purview’).AsString := Str;

end;