Конвертация бд(paradox,dbase) в Excel

[DuM4uK]

Здравствуйте уважаемые форумчане.

Вот такоя проблемка, нашол в сети исходник по конвертации БД в excel. Все работает прекрасно, НО данные выводятся без названия полей, т.е без шапки.

Подскажите пожалуйста что нужно дописать, чтобы выводились название полей.

Заранее благодарен.
Вот код:

procedure TForm1.BtnExportClick(Sender: TObject);
var
XL, XArr: Variant;
i: Integer;
j: Integer;
begin
{не забудьте включить ComObj в список используемых модулей}
// Создаем массив элементов, полученных в результате запроса
XArr:=VarArrayCreate([1,TableDB.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Applicat ion'); // Создание OLE объекта
XL.WorkBooks.add;
XL.visible:=true;

j := 1;
TableDB.First;
while not TableDB.Eof do
begin
i:=1;
while i<=TableDB.FieldCount do
begin
XArr[i] := TableDB.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+TableDB.FieldCount)+IntToStr (j)].Value := XArr;
TableDB.Next;
j:=j+1;
end;
XL.Range['A1',CHR(64+TableDB.FieldCount)+Int ToStr(j)].select;
// XL.cells.select; // Выбираем все
XL.Selection.Font.Name:='Arial cur';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Range['A1','A1'].select;
end;

Вот исходник:

[Serge_Bliznykov]

begin
 {не забудьте включить ComObj в список используемых модулей}
 // Создаем массив элементов, полученных в результате запроса
 XArr:=VarArrayCreate([1,TableDB.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');     // Создание OLE объекта
 XL.WorkBooks.add;
 XL.visible:=true;

 for i := 0 to TableDB.FieldCount - 1 do begin
   XL.Cells[1,i+1].Value := TableDB.Fields[i].FieldName;
 end;
 XL.Range['A1',CHR(64+TableDB.FieldCount)+'1'].Font.Bold := True;

 j := 1;
 TableDB.First;
 while not TableDB.Eof do
  begin
   i:=1;
   while i<=TableDB.FieldCount do
    begin
     XArr[i] := TableDB.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j+1),
   CHR(64+TableDB.FieldCount)+IntToStr(j+1)].Value := XArr;
   TableDB.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+TableDB.FieldCount)+IntToStr(j+1)].select;
 // XL.cells.select;                     // Выбираем все
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;
end;

[DuM4uK]

Спасибо большое Serge_Bliznykov все работает,то что нужно.

[Evgeniy26]

Интересно, а такой вариант прокатит с бд(paradox,dbase) http://delphikingdom.ru/asp/viewitem.asp?catalogid=1412.