Показать сообщение отдельно
  #2  
Старый 24.05.2010, 00:28
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Опреденляешь какие из полей отмечены, если отмечено заносишь в переменнцую или масив и работаешь. Примерно так, только еще шаги по таблице в цикле нужны:
Код:
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 и кидаешь все туда. Про работу с МС офисом поищи на форуме, не раз поднимался вопрос.
Ответить с цитированием