excelapplication1

Ответ от Леха[гуру]
а куда выводить?
можно на печать, в окошко, messageBox, какой-нить элемент управления, БД на крайняк.. .

Ответ от Игорь Платунов[гуру]
Вывод в Эксель
var e:olevariant
e:=sf+'Дело. xlt';
ExcelApplication1.Workbooks.Add(e,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
end;
{Вывод названия скважины}
ExcelApplication1.Cells.Item[1,1].value:='Скважина №';
ExcelApplication1.Cells.Item[1,2].value:=DataModule1.WellListDSDesigner2.Value;
ExcelApplication1.Cells.Item[1,3].value:='Месторождение';
Вывод в Ворд
e:=sf+'План. doc';
WordApplication1.Documents.OpenOld(e,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
{Вывод текста}
WordApplication1.Selection.TypeText(#13);
WordApplication1.Selection.TypeText(#13);
//WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeText('ПЛАН РАБОТ');
Вывод в Message
procedure WtrOtm(WellCod:longint;st:string);
var
hs,his,has:string;
h:double;
c:integer;
begin
hs:=FlEd(InputBox('Глубина по стволу','','0'));
val(hs,h,c);
str(GetOtm(WellCod,h,0,true,st):10:4,his);his:=trim(his)+'м; ';
str(GetOtm(WellCod,h,0,false,st):10:4,has);has:=trim(has)+'м. ';
hs:='Глубина по стволу '+hs+'м; '+#13;
hs:=hs+'Глубина по вертикали '+his+#13;
hs:=hs+'Абсолютная отметка '+has+#13;
MessageDlg(hs,mtConfirmation,[mbOk], 0);
end;
Вывод из Мемо на принтер
Memo1.Lines.Append(' Характеристики кислот');
if PrintDialog1.Execute then Memo1.Print('');
Что ещё куда выводить?

Ответ от 3 ответа[гуру]