все вчера сделал. Кому интересно выложу код.
n:= form1.DBGrid1.SelectedField.FieldNo;
form1.Edit1.Text:= intToSTR(n);
for i:=0 to n do
begin
Sheet.Cells[2,3]:=form1.TTable1.Fields.Fields[1].AsString;
Sheet.Cells[6,2]:=form1.TTable1.Fields.Fields[3].AsString;
Sheet.Cells[6,3]:=form1.TTable1.Fields.Fields[4].AsString;
Sheet.Cells[6,4]:=form1.TTable1.Fields.Fields[5].AsString;
Sheet.Cells[7,4]:=form1.TTable1.Fields.Fields[6].AsString;
Sheet.Cells[8,4]:=form1.TTable2.Fields.Fields[5].AsString;
n:=n+1;
end;
|