[grom333]

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

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

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

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

Код:

1 2 3 4 5 6 7 8

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 пункта:

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

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