Опреденляешь какие из полей отмечены, если отмечено заносишь в переменнцую или масив и работаешь. Примерно так, только еще шаги по таблице в цикле нужны:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | var i: integer ;
a: string ;
Field_name: string ;
begin
for i:= 0 to CheckListBox1 . Items . Count- 1 do
begin
if CheckListBox1 . Checked[i] then
begin
Field_name:=CheckListBox1 . Items . ValueFromIndex[i];
a:=Table1 . FieldByName(Field_name).AsString;
end ;
end ;
|
Ну а дальше открываешь Excel и кидаешь все туда. Про работу с МС офисом поищи на форуме, не раз поднимался вопрос.