[grom333]

Есть БД access (ADO). Хранятся поля Наименование|Цена|Группа

Нужно вывести в Эксель список по такому правилу.
1. Вывод производится в 4 колонки
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
.....

2. Перед каждой группой нужно делать название данной группы.
Поясняю. Группы это: мониторы, мыши, процессоры.

Вот как подписать можно так по группам.
МОниторы:
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
...
Клавиатуры:
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
...
-----------------------------
Стандартный вывод сделал в Excel:
Наименование|Цена
Наименование|Цена
Наименование|Цена
...

Код:

A.First;
 for i:=0 to A.RecordCount-1 do
  begin
   Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;
   Inc(index);
   A.Next;
  end;

===============================
Решение 1 пункта:

Код:

A.First;
while not A.Eof do begin
  Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
  Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;
  a.Next;
  if a.Eof then Break;
  Sheet.Cells[index,5]:= A.FieldByName('naim').AsString;
  Sheet.Cells[index,6]:= A.FieldByName('cena').AsString;
  Inc(index);
  A.Next;
end;

Теперь остался второй пункт...