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

end;//TRiad.Table

procedure TRiad.WriteToIniFile;

//запись в Ini-файл

begin

IniFile.WriteInteger('Parameters', 'W', W);

IniFile.UpdateFile;//очистка буфера и запись файла на диск

end;//TRiad.WriteToIniFile

procedure TRiad.ReadFromIniFile;

//чтение из Ini-файла

begin

W:= IniFile.ReadInteger('Parameters', 'W', w);

end;//TRiad.ReadFromIniFile

function TRiad.GetW :integer;

begin

 result:= W;

end;//TRiad.GetW

procedure TRiad.SetW;

begin

if Form1.RadioGroup1.ItemIndex=-1 then

 MessageDlg(Pchar('Не выбрано значение w!!!'),mtError,[mbOk],0);

 if Form1.RadioGroup1.ItemIndex =0 then

 begin

 Form1.Label10.Caption:='1';

 w:=1;

 end

 else if Form1.RadioGroup1.ItemIndex =1 then

 begin

 Form1.label10.Caption:='3';

 w:=3;