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

// PChar('Riad.pps'), NIL, PChar(''), sw_ShowNormal);

end;//TFormMain.PresentationClick

procedure TForm1.Word1Click(Sender: TObject);

begin //Отчет в Word

ReportWord(StringGrid1);

end;//TFormMain.Word1Click

Procedure TForm1.ReportExcel(AStringGrid : TStringGrid);

//Отчет в Excel

var

Excel : variant;

WorkBook : variant; //Рабочая книга

i, j : integer;

begin

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

FormGraphic:= TFormGraphic.Create(Form1);

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

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

//Отключить реакцию на внешние события-для ускорения процесса передачи данных

Excel.Application.EnableEvents:= false;

//Добавить рабочую книгу

WorkBook:= Excel.WorkBooks.Add;

//Изменение ширины столбцов

for j:=0 to AStringGrid.ColCount do

WorkBook.WorkSheets[1].Columns[j+1].ColumnWidth:= 10;

//Вывод строки

WorkBook.WorkSheets[1].Cells[1,1]:= 'Отчет о колебаниях стержня';

//Заполнение ячеек таблицы Excel значениями из StringGrid

//Нумерация ячеек в Excel начинается с 1 и идет в формате строка-столбец

for i:= 1 to AStringGrid.RowCount + 1 do