Запрос по CheckListBox

[program123]

Нужно организовать запрос на выборку полей из CheckListBox'a. Не пойму как сделать, посоветуйте чтонибудь. Была идея сделать примерно так:

  for i:=1 to sCheckListBox1.Items.Count-1 do
  if sCheckListBox1.Items[i].checked

но checked'a я не обнаружил..

[mihali4]

Если я правильно понял ваш вопрос, то можно, например, так:

Query.SQL.Text:='select ';
for i:=1 to sCheckListBox1.Items.Count-1 do
begin
if sCheckListBox1.Items[i].checked then
begin
if Query.SQL.Text='select ' then
Query.SQL.Text:=Query.SQL.Text+QuotedStr(sCheckListBox1.Items[i].Text) else
Query.SQL.Text:=Query.SQL.Text+' ,'+QuotedStr(sCheckListBox1.Items[i].Text); 
end;
end;
Query.SQL.Text:=Query.SQL.Text+' from mytable';
Query.Open;

Подразумевается, что sCheckListBox1 заполнен именами полей...

[program123]

Всё правильно)) спасибо

на это ругается:

if sCheckListBox1.Items[i].checked

[mihali4]

Это - ваши неправильные "изыски". Я их специально не исправил.
Жмите F1 и смотрите свойства CheckListBox-а.
Checked там есть...
Только используется по-другому.

[rockedit]

if sCheckListBox1.checked[i]

[Власов А.С.]

var k:boolean;
    m:string;
    sum: integer;
begin
 k:=false;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select* from Swod');
if CheckBox1.Checked then
begin
if not(k) then  ADOQuery1.SQL.Add('where КБК='+chr(39)+DBLookupComboboxEh1.Text+chr(39)) else  ADOQuery1.SQL.Add(' and КБК='+chr(39)+DBLookupComboboxEh1.Text+chr(39)) ;
k:=true;
end;ADOQuery1.Active:=false;
 ADOQuery1.Active:=true;

вот как у меня рботает

[rockedit]

Тогда я вообше не понимаю зачем нужен был компонент CheckListBox1.

[program123]

2 Власов А.С. вы написали select* from Swod мне не нужны все поля *, только выбранные.
2 rockedit сейчас буду пробовать)