Вывод данных в Excel

[sdr1]

В делфи ,как запретить вывод одного поля из таблицы аксесс в Excel?
Есть таблица в ней 9 полей, 1 поле с индексом 0 и именем ID, нужно чтоб не отображалось при выводе данных в Excel.


begin

Excel := CreateOleObject('Excel.Application' );

Excel.Workbooks.Add;


FData:=VarArrayCreate([1,Form_general.table_organization.R ecordCount+1,1,Form_general.table_o rganization.Fields.Count],varVariant);


for j:=1 to Form_general.table_organization.Fie lds.Count do
FData[1,j]:=Form_general.table_organization.F ields[j-1].DisplayName;


ADOQuery2.First;i:=2;
while not ADOQuery2.Eof do
begin
for j:=1 to ADOQuery2.Fields.Count do
FData[i,j]:=ADOQuery2.Fields[j-1].Value;
ADOQuery2.Next;i:=i+1;
end;


Excel.Range[Excel.Cells[1, 1], Excel.Cells[ADOQuery2.RecordCount+1, ADOQuery2.Fields.Count]].Value:=FData;


Excel.Range[Excel.Cells[1, 1], Excel.Cells[ADOQuery2.RecordCount+1, ADOQuery2.Fields.Count]].Select;
Excel.Selection.Borders.LineStyle := 1;
Excel.Selection.Borders.Weight := 2;
Excel.Range[Excel.Cells[1, 1], Excel.Cells[1, 1]].Select;


Excel.Range[Excel.Cells[1, 1], Excel.Cells[1, ADOQuery2.Fields.Count]].Interior.ColorIndex:=16;

Excel.Columns.AutoFit;
Excel.Visible:=True;

end;

[evg_m]

нужно чтоб не отображалось при выводе данных в Excel.

не копировать это поле в массив отображения (FData).

for j:=2 to ADOquery2.field.count do
  Fdata[i, j-1]:=ADOQuery2.Fields[j-1].Value;

[sdr1]

Сообщение от evg_m

не копировать это поле в массив отображения (FData).

for j:=2 to ADOquery2.field.count do
  Fdata[i, j-1]:=ADOQuery2.Fields[j-1].Value;

Спасибо большое помогло