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

wa.Options.CheckSpellingAsYouType:=False;

//Отменить проверку орфографии

wa.Options.CheckGrammarAsYouType:=False;

a:= 0;

b:= 0;

wd.Range.InsertAfter('Отчет');

c:= Length(wd.Range.Text) - 1;

a:= c;

b:= c + 10;

//Добавить таблицу

wd.Tables.Add(wd.Range(a), AStringGrid.RowCount,

AStringGrid.ColCount, EmptyParam, EmptyParam);

k:= 1;

//Перенести данные из StringGrid в таблицу

for i:= 1 to AStringGrid.RowCount do

for j:= 1 to AStringGrid.ColCount do

wd.Tables.Item(k).Cell(i,j).Range.Text:= AStringGrid.Cells[j-1, i-1];

//Загрузить изображение в Image

FormGraphic.Image1.Picture.LoadFromFile('PictureWord.bmp');

//Поместить изображение в буфер обмена

Clipboard.Assign(FormGraphic.Image1.Picture);

c:= Length(wd.Range.Text) - 1;

a:= c;

//Вставить изображение из буфера обмена

wa.Selection.Paste;

//Показать Word

wa.Visible:= true;

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

FormGraphic.Release;