[pesi]

Вот это одну выделенную связанную строку

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

procedure TForm1.Button4Click(Sender: TObject); var  XLApp,Sheet,Colum:Variant;  glavnay, telefon, i :Integer; begin  XLApp:= CreateOleObject('Excel.Application');  XLApp.Visible:=true;  XLApp.Workbooks.Add(-4167);  XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';  Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;  Colum.Columns[1].ColumnWidth:=20;  Colum.Columns[2].ColumnWidth:=20;  Colum.Columns[3].ColumnWidth:=20;  Colum.Columns[4].ColumnWidth:=20;    Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;  Colum.Rows[2].Font.Bold:=true;  Colum.Rows[1].Font.Bold:=true;  Colum.Rows[1].Font.Color:=clBlue;  Colum.Rows[1].Font.Size:=14;    Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];  Sheet.Cells[1,2]:='Телефонный справочник';  Sheet.Cells[2,1]:='Фамилия';  Sheet.Cells[2,2]:='Имя';  Sheet.Cells[2,3]:='Стационарный';  Sheet.Cells[2,4]:='Мобильный';     glavnay:=3;   telefon:=3;             for i:=0 to form1.ADOTable2.RecordCount-1 do             begin              Sheet.Cells[telefon,3]:=form1.ADOTable2.Fields.Fields[2].AsString;              Sheet.Cells[telefon,4]:=form1.ADOTable2.Fields.Fields[3].AsString;              inc(telefon);              form1.ADOTable2.Next;             end;         Sheet.Cells[glavnay,1]:=form1.ADOTable1.Fields.Fields[1].AsString;         Sheet.Cells[glavnay,2]:=form1.ADOTable1.Fields.Fields[2].AsString; end;