Курсовая работа: Программная реализация разложения временного процесса в тригонометрический ряд

WorkBook.WorkSheets[1].Cells[i+1, j+1]:= AStringGrid.Cells[j, i-1];

//Вставит изображение графика в Excel

WorkBook.WorkSheets[1].Shapes.AddPicture(GetCurrentDir+'\PictureWord.bmp',

True, True, 0, (AStringGrid.RowCount+2)*12.5+10, FormGraphic.Chart1.Width*0.8,

FormGraphic.Chart1.Height*0.8);

//Уничтожить форму

FormGraphic.Release;

FormGraphic:= NIL;

//Показать Excel

Excel.Visible:=true;

end;//TFormMain.ReportExcel

Procedure TForm1.ReportWord(AStringGrid : TStringGrid);

//Отчет в Word

var

i,j,k : integer;

a,b,c : OleVariant;

wa : TWordApplication; //WordApplication

wd : TWordDocument; //WordDocument

begin

//Создать форму для графика

FormGraphic:= TFormGraphic.Create(Form1);

//Создать com-объект

wa:= TWordApplication.Create(Form1);

//Подключиться к серверу Word

wa.Connect;

//Добавить новый документ

wa.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);

wd:= TWordDocument.Create(Form1);

wd.ConnectTo(wa.ActiveDocument);