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

 N9: TMenuItem;

 EXcel2: TMenuItem;

 SpeedButton1: TSpeedButton;

 SpeedButton2: TSpeedButton;

 procedure BitBtn3Click(Sender: TObject);

 procedure FormActivate(Sender: TObject);

 procedure BitBtn1Click(Sender: TObject);

 procedure BitBtn4Click(Sender: TObject);

 procedure BitBtn2Click(Sender: TObject);

 procedure N4Click(Sender: TObject);

 procedure PresentationClick(Sender: TObject);

 procedure Word1Click(Sender: TObject);

 procedure Excel1Click(Sender: TObject);

 procedure SpeedButton2Click(Sender: TObject);

 // Procedure TFormMain.PresentationClick(Sender: TObject);

 

 private

 { Private declarations }

 public

IniFileName : string; //Имя файла инициализации

procedure ReportExcel(AStringGrid : TStringGrid); //Передать отчет в Excel

procedure ReportWord (AStringGrid : TStringGrid); //Передать отчет в Word

 { Public declarations }

 end;

var

 Form1: TForm1;

 Flag : bool; //Флаг определения вида используемого объекта

 const x=1;

 const P=500;