test.pas

温度恒温控制,与PLC,工控板通讯,实现炉字过程控制.

  self.savedlfile.FileName:=sfilename;
  if self.savedlfile.Execute() then
  begin
    sfilename:=self.savedlfile.FileName;
    ini:=Tinifile.Create(sfilename);
    ini.WriteString('玻璃参数','thick',edthick.Text);
    ini.WriteString('玻璃参数','spec',edspec.Text);

    ini.WriteString('上炉体','temp43',inttostr(sptem43.Value));
    ini.WriteString('上炉体','temp42',inttostr(sptem42.Value));
    ini.WriteString('上炉体','temp41',inttostr(sptem41.Value));
    ini.WriteString('上炉体','temp40',inttostr(sptem40.Value));
    ini.WriteString('上炉体','temp39',inttostr(sptem39.Value));
    ini.WriteString('上炉体','temp38',inttostr(sptem38.Value));
    ini.WriteString('上炉体','temp37',inttostr(sptem37.Value));
    ini.WriteString('上炉体','temp36',inttostr(sptem36.Value));
    ini.WriteString('上炉体','temp35',inttostr(sptem35.Value));
    ini.WriteString('上炉体','temp34',inttostr(sptem34.Value));
    ini.WriteString('上炉体','temp33',inttostr(sptem33.Value));
    ini.WriteString('上炉体','temp32',inttostr(sptem32.Value));
    ini.WriteString('上炉体','temp31',inttostr(sptem31.Value));
    ini.WriteString('上炉体','temp30',inttostr(sptem30.Value));
    ini.WriteString('上炉体','temp29',inttostr(sptem29.Value));
    ini.WriteString('上炉体','temp15',inttostr(sptem15.Value));
    ini.WriteString('上炉体','temp14',inttostr(sptem14.Value));
    ini.WriteString('上炉体','temp13',inttostr(sptem13.Value));
    ini.WriteString('上炉体','temp12',inttostr(sptem12.Value));
    ini.WriteString('上炉体','temp11',inttostr(sptem11.Value));
    ini.WriteString('上炉体','temp10',inttostr(sptem10.Value));
    ini.WriteString('上炉体','temp9',inttostr(sptem9.Value));
    ini.WriteString('上炉体','temp8',inttostr(sptem8.Value));
    ini.WriteString('上炉体','temp7',inttostr(sptem7.Value));
    ini.WriteString('上炉体','temp6',inttostr(sptem6.Value));
    ini.WriteString('上炉体','temp5',inttostr(sptem5.Value));
    ini.WriteString('上炉体','temp4',inttostr(sptem4.Value));
    ini.WriteString('上炉体','temp3',inttostr(sptem3.Value));
    ini.WriteString('上炉体','temp2',inttostr(sptem2.Value));
    ini.WriteString('上炉体','temp1',inttostr(sptem1.Value));
    ini.WriteString('上炉体','toler43',inttostr(sptemwc43.Value));
    ini.WriteString('上炉体','toler42',inttostr(sptemwc42.Value));
    ini.WriteString('上炉体','toler41',inttostr(sptemwc41.Value));
    ini.WriteString('上炉体','toler40',inttostr(sptemwc40.Value));
    ini.WriteString('上炉体','toler39',inttostr(sptemwc39.Value));
    ini.WriteString('上炉体','toler38',inttostr(sptemwc38.Value));
    ini.WriteString('上炉体','toler37',inttostr(sptemwc37.Value));
    ini.WriteString('上炉体','toler36',inttostr(sptemwc36.Value));
    ini.WriteString('上炉体','toler35',inttostr(sptemwc35.Value));
    ini.WriteString('上炉体','toler34',inttostr(sptemwc34.Value));
    ini.WriteString('上炉体','toler33',inttostr(sptemwc33.Value));
    ini.WriteString('上炉体','toler32',inttostr(sptemwc32.Value));
    ini.WriteString('上炉体','toler31',inttostr(sptemwc31.Value));
    ini.WriteString('上炉体','toler30',inttostr(sptemwc30.Value));
    ini.WriteString('上炉体','toler29',inttostr(sptemwc29.Value));
    ini.WriteString('上炉体','toler15',inttostr(sptemwc15.Value));
    ini.WriteString('上炉体','toler14',inttostr(sptemwc14.Value));
    ini.WriteString('上炉体','toler13',inttostr(sptemwc13.Value));
    ini.WriteString('上炉体','toler12',inttostr(sptemwc12.Value));
    ini.WriteString('上炉体','toler11',inttostr(sptemwc11.Value));
    ini.WriteString('上炉体','toler10',inttostr(sptemwc10.Value));
    ini.WriteString('上炉体','toler9',inttostr(sptemwc9.Value));
    ini.WriteString('上炉体','toler8',inttostr(sptemwc8.Value));
    ini.WriteString('上炉体','toler7',inttostr(sptemwc7.Value));
    ini.WriteString('上炉体','toler6',inttostr(sptemwc6.Value));
    ini.WriteString('上炉体','toler5',inttostr(sptemwc5.Value));
    ini.WriteString('上炉体','toler4',inttostr(sptemwc4.Value));
    ini.WriteString('上炉体','toler3',inttostr(sptemwc3.Value));
    ini.WriteString('上炉体','toler2',inttostr(sptemwc2.Value));
    ini.WriteString('上炉体','toler1',inttostr(sptemwc1.Value));
    ini.WriteString('下炉体','temp56',inttostr(sptem56.Value));
    ini.WriteString('下炉体','temp55',inttostr(sptem55.Value));
    ini.WriteString('下炉体','temp54',inttostr(sptem54.Value));
    ini.WriteString('下炉体','temp53',inttostr(sptem53.Value));
    ini.WriteString('下炉体','temp52',inttostr(sptem52.Value));
    ini.WriteString('下炉体','temp51',inttostr(sptem51.Value));
    ini.WriteString('下炉体','temp50',inttostr(sptem50.Value));
    ini.WriteString('下炉体','temp49',inttostr(sptem49.Value));
    ini.WriteString('下炉体','temp48',inttostr(sptem48.Value));
    ini.WriteString('下炉体','temp47',inttostr(sptem47.Value));
    ini.WriteString('下炉体','temp46',inttostr(sptem46.Value));
    ini.WriteString('下炉体','temp45',inttostr(sptem45.Value));
    ini.WriteString('下炉体','temp44',inttostr(sptem44.Value));
    ini.WriteString('下炉体','temp28',inttostr(sptem28.Value));
    ini.WriteString('下炉体','temp27',inttostr(sptem27.Value));
    ini.WriteString('下炉体','temp26',inttostr(sptem26.Value));
    ini.WriteString('下炉体','temp25',inttostr(sptem25.Value));
    ini.WriteString('下炉体','temp24',inttostr(sptem24.Value));
    ini.WriteString('下炉体','temp23',inttostr(sptem23.Value));
    ini.WriteString('下炉体','temp22',inttostr(sptem22.Value));
    ini.WriteString('下炉体','temp21',inttostr(sptem21.Value));
    ini.WriteString('下炉体','temp20',inttostr(sptem20.Value));
    ini.WriteString('下炉体','temp19',inttostr(sptem19.Value));
    ini.WriteString('下炉体','temp18',inttostr(sptem18.Value));
    ini.WriteString('下炉体','temp17',inttostr(sptem17.Value));
    ini.WriteString('下炉体','temp16',inttostr(sptem16.Value));

    ini.WriteString('下炉体','toler56',inttostr(sptemwc56.Value));
    ini.WriteString('下炉体','toler55',inttostr(sptemwc55.Value));
    ini.WriteString('下炉体','toler54',inttostr(sptemwc54.Value));
    ini.WriteString('下炉体','toler53',inttostr(sptemwc53.Value));
    ini.WriteString('下炉体','toler52',inttostr(sptemwc52.Value));
    ini.WriteString('下炉体','toler51',inttostr(sptemwc51.Value));
    ini.WriteString('下炉体','toler50',inttostr(sptemwc50.Value));
    ini.WriteString('下炉体','toler49',inttostr(sptemwc49.Value));
    ini.WriteString('下炉体','toler48',inttostr(sptemwc48.Value));
    ini.WriteString('下炉体','toler47',inttostr(sptemwc47.Value));
    ini.WriteString('下炉体','toler46',inttostr(sptemwc46.Value));
    ini.WriteString('下炉体','toler45',inttostr(sptemwc45.Value));
    ini.WriteString('下炉体','toler44',inttostr(sptemwc44.Value));
    ini.WriteString('下炉体','toler28',inttostr(sptemwc28.Value));
    ini.WriteString('下炉体','toler27',inttostr(sptemwc27.Value));
    ini.WriteString('下炉体','toler26',inttostr(sptemwc26.Value));
    ini.WriteString('下炉体','toler25',inttostr(sptemwc25.Value));
    ini.WriteString('下炉体','toler24',inttostr(sptemwc24.Value));
    ini.WriteString('下炉体','toler23',inttostr(sptemwc23.Value));
    ini.WriteString('下炉体','toler22',inttostr(sptemwc22.Value));
    ini.WriteString('下炉体','toler21',inttostr(sptemwc21.Value));
    ini.WriteString('下炉体','toler20',inttostr(sptemwc20.Value));
    ini.WriteString('下炉体','toler19',inttostr(sptemwc19.Value));
    ini.WriteString('下炉体','toler18',inttostr(sptemwc18.Value));
    ini.WriteString('下炉体','toler17',inttostr(sptemwc17.Value));
    ini.WriteString('下炉体','toler16',inttostr(sptemwc16.Value));



    ini.WriteString('工艺参数','lowheat',inttostr(splowheat.Value));
    ini.WriteString('工艺参数','highheat',inttostr(sphighheat.Value));
    ini.WriteString('工艺参数','qhsj',inttostr(spqh.Value));
    ini.WriteString('工艺参数','lqsj',inttostr(splq.Value));
    ini.WriteString('工艺参数','fj1',inttostr(spfj1qh.Value));
    ini.WriteString('工艺参数','fj2',inttostr(spfj2qh.Value));
    ini.WriteString('工艺参数','fj3',inttostr(spfj3lq.Value));

    ini.WriteString('工艺参数','间隔时间',inttostr(spjgsj.Value));
    ini.WriteString('工艺参数','低温加热时间',inttostr(spgydwjl.Value));
    ini.WriteString('工艺参数','高温加热时间',inttostr(spgygwjl.Value));
    ini.WriteString('工艺参数','摆动时间',inttostr(spgybdsj.Value));
    ini.WriteString('工艺参数','强化时间',inttostr(spgyqhsj.Value));
    ini.WriteString('工艺参数','冷却时间',inttostr(spgylqsj.Value));
    ini.WriteString('工艺参数','风机1提前时间',inttostr(spgyfj1tq.Value));
    ini.WriteString('工艺参数','风门1提前时间',inttostr(spgyfm1tq.Value));
    ini.WriteString('工艺参数','风机2提前时间',inttostr(spgyfj2tq.Value));
    ini.WriteString('工艺参数','风门2提前时间',inttostr(spgyfm2tq.Value));
    ini.WriteString('工艺参数','风机1待机频率',inttostr(spgyfj1dj.Value));
    ini.WriteString('工艺参数','风机1强化频率',inttostr(spgyfj1qh.Value));
    ini.WriteString('工艺参数','风机2待机频率',inttostr(spgyfj2dj.Value));
    ini.WriteString('工艺参数','风机2强化频率',inttostr(spgyfj2qh.Value));
    ini.WriteString('工艺参数','风机3冷却频率',inttostr(spgyfj3lq.Value));

    ini.WriteString('距离参数','进片步进',inttostr(spjljpbj.Value));
    ini.WriteString('距离参数','低温进片减速',inttostr(spjldwjpjs.Value));
    ini.WriteString('距离参数','低温炉长',inttostr(spjldwlc.Value));
    ini.WriteString('距离参数','低温安全距离',inttostr(spjldwaq.Value));
    ini.WriteString('距离参数','低温出片',inttostr(spjldwcp.Value));
    ini.WriteString('距离参数','低温出片减速',inttostr(spjldwcpjs.Value));
    ini.WriteString('距离参数','高温炉长',inttostr(spjlgwlc.Value));
    ini.WriteString('距离参数','高温安全距离',inttostr(spjlgwaq.Value));
    ini.WriteString('距离参数','高温出片',inttostr(spjlgwcp.Value));
    ini.WriteString('距离参数','高温减速',inttostr(spjlgwjs.Value));
    ini.WriteString('距离参数','强化炉长',inttostr(spjlqhlc.Value));
    ini.WriteString('距离参数','强化安全',inttostr(spjlqhaq.Value));
    ini.WriteString('距离参数','强化出片',inttostr(spjlqhcp.Value));
    ini.WriteString('距离参数','进片比例',inttostr(spjpscale.Value));
    ini.WriteString('距离参数','低温比例',inttostr(spdwscale.Value));
    ini.WriteString('距离参数','高温比例',inttostr(spgwscale.Value));
    ini.WriteString('距离参数','强化比例',inttostr(spqhscale.Value));

    ini.WriteString('速度参数','进片步进速度',inttostr(spjpbjsd.Value));
    ini.WriteString('速度参数','低温待机速度',inttostr(spdwdjsd.Value));
    ini.WriteString('速度参数','低温进片速度',inttostr(spdwjpsd.Value));
    ini.WriteString('速度参数','低温进片减速',inttostr(spdwjpjs.Value));
    ini.WriteString('速度参数','低温摆动速度',inttostr(spdwbdsd.Value));
    ini.WriteString('速度参数','低温出片速度',inttostr(spdwcpsd.Value));
    ini.WriteString('速度参数','低温出片减速',inttostr(spdwcpjs.Value));
    ini.WriteString('速度参数','高温待机速度',inttostr(spgwdjsd.Value));
    ini.WriteString('速度参数','高温摆动速度',inttostr(spgwbdsd.Value));
    ini.WriteString('速度参数','高温出片减速',inttostr(spgwcpjs.Value));
    ini.WriteString('速度参数','强化摆动速度',inttostr(spqhbdsd.Value));
    ini.WriteString('速度参数','强化冷却摆动',inttostr(spqhlqbd.Value));
    ini.WriteString('速度参数','强化出片速度',inttostr(spqhcpsd.Value));
    ini.WriteString('速度参数','进片比例',inttostr(spsdjp.Value));
    ini.WriteString('速度参数','低温比例',inttostr(spsddw.Value));
    ini.WriteString('速度参数','高温比例',inttostr(spsdgw.Value));
    ini.WriteString('速度参数','强化比例',inttostr(spsdqh.Value));

    ini.WriteString('自动升温','报警温度',inttostr(spwarntemp.Value));
    ini.WriteString('自动升温','整定温度',inttostr(sppidtmp.Value));
    ini.WriteString('自动升温','加热周期',inttostr(spcycle.Value));
    ini.WriteString('自动升温','加热功率',inttostr(sppower.Value));

    for i:=1 to 56 do
    begin
        si:=trim(inttostr(i));
        Fspinedit:=Tspinedit(frmglass.FindComponent('sppidp'+si));
        ini.WriteString('PID参数','PIDP'+si,inttostr(Fspinedit.Value));
        Fspinedit:=Tspinedit(frmglass.FindComponent('sppidi'+si));
        ini.WriteString('PID参数','PIDi'+si,inttostr(Fspinedit.Value));
        Fspinedit:=Tspinedit(frmglass.FindComponent('sppidd'+si));
        ini.WriteString('PID参数','PIDd'+si,inttostr(Fspinedit.Value));
    end;
    ini.Free;
    messagebox(handle,'玻璃参数已保存！','系统提示',mb_ok);
  end;
end;

procedure Tfrmglass.bnloadfileClick(Sender: TObject);
var    sfile:string;
begin
  self.opendlfile.InitialDir:=extractfilepath(Application.ExeName)+'glassfile';
  if not self.opendlfile.Execute() then
  begin
    messagebox(handle,'打开配置文件失败!','系统提示',MB_OK+MB_ICONINFORMATION);
    exit;
  end;
  sfile:=self.opendlfile.FileName;
  sdefaultfile:=sfile;
  loadconfig(sfile);
end;
procedure Tfrmglass.loadconfig(sfile:string);
var ini:Tinifile;
    stemp:string;
    i:integer;
    si:string;
    Fspinedit:Tspinedit;
begin
    ini:=Tinifile.Create(sfile);
    edthick.Text:=ini.readString('玻璃参数','thick','');
    edspec.Text:=ini.readString('玻璃参数','spec','');
    self.edfile.Text:=sfile;

    sptem43.Value:=strtoint(ini.readString('上炉体','temp43',''));
    sptem42.Value:=strtoint(ini.readString('上炉体','temp42',''));
    sptem41.Value:=strtoint(ini.readString('上炉体','temp41',''));
    sptem40.Value:=strtoint(ini.readString('上炉体','temp40',''));
    sptem39.Value:=strtoint(ini.readString('上炉体','temp39',''));
    sptem38.Value:=strtoint(ini.readString('上炉体','temp38',''));
    sptem37.Value:=strtoint(ini.readString('上炉体','temp37',''));
    sptem36.Value:=strtoint(ini.readString('上炉体','temp36',''));
    sptem35.Value:=strtoint(ini.readString('上炉体','temp35',''));
    sptem34.Value:=strtoint(ini.readString('上炉体','temp34',''));
    sptem33.Value:=strtoint(ini.readString('上炉体','temp33',''));
    sptem32.Value:=strtoint(ini.readString('上炉体','temp32',''));
    sptem31.Value:=strtoint(ini.readString('上炉体','temp31',''));
    sptem30.Value:=strtoint(ini.readString('上炉体','temp30',''));
    sptem29.Value:=strtoint(ini.readString('上炉体','temp29',''));
    sptem15.Value:=strtoint(ini.readString('上炉体','temp15',''));
    sptem14.Value:=strtoint(ini.readString('上炉体','temp14',''));
    sptem13.Value:=strtoint(ini.readString('上炉体','temp13',''));
    sptem12.Value:=strtoint(ini.readString('上炉体','temp12',''));
    sptem11.Value:=strtoint(ini.readString('上炉体','temp11',''));
    sptem10.Value:=strtoint(ini.readString('上炉体','temp10',''));
    sptem9.Value:=strtoint(ini.readString('上炉体','temp9',''));
    sptem8.Value:=strtoint(ini.readString('上炉体','temp8',''));
    sptem7.Value:=strtoint(ini.readString('上炉体','temp7',''));
    sptem6.Value:=strtoint(ini.readString('上炉体','temp6',''));
    sptem5.Value:=strtoint(ini.readString('上炉体','temp5',''));
    sptem4.Value:=strtoint(ini.readString('上炉体','temp4',''));
    sptem3.Value:=strtoint(ini.readString('上炉体','temp3',''));
    sptem2.Value:=strtoint(ini.readString('上炉体','temp2',''));
    sptem1.Value:=strtoint(ini.readString('上炉体','temp1',''));

    sptemwc43.Value:=strtoint(ini.readString('上炉体','toler43',''));
    sptemwc42.Value:=strtoint(ini.readString('上炉体','toler42',''));
    sptemwc41.Value:=strtoint(ini.readString('上炉体','toler41',''));
    sptemwc40.Value:=strtoint(ini.readString('上炉体','toler40',''));
    sptemwc39.Value:=strtoint(ini.readString('上炉体','toler39',''));
    sptemwc38.Value:=strtoint(ini.readString('上炉体','toler38',''));
    sptemwc37.Value:=strtoint(ini.readString('上炉体','toler37',''));
    sptemwc36.Value:=strtoint(ini.readString('上炉体','toler36',''));
    sptemwc35.Value:=strtoint(ini.readString('上炉体','toler35',''));
    sptemwc34.Value:=strtoint(ini.readString('上炉体','toler34',''));
    sptemwc33.Value:=strtoint(ini.readString('上炉体','toler33',''));
    sptemwc32.Value:=strtoint(ini.readString('上炉体','toler32',''));
    sptemwc31.Value:=strtoint(ini.readString('上炉体','toler31',''));
    sptemwc30.Value:=strtoint(ini.readString('上炉体','toler30',''));
    sptemwc29.Value:=strtoint(ini.readString('上炉体','toler29',''));
    sptemwc15.Value:=strtoint(ini.readString('上炉体','toler15',''));
    sptemwc14.Value:=strtoint(ini.readString('上炉体','toler14',''));
    sptemwc13.Value:=strtoint(ini.readString('上炉体','toler13',''));
    sptemwc12.Value:=strtoint(ini.readString('上炉体','toler12',''));
    sptemwc11.Value:=strtoint(ini.readString('上炉体','toler11',''));
    sptemwc10.Value:=strtoint(ini.readString('上炉体','toler10',''));
    sptemwc9.Value:=strtoint(ini.readString('上炉体','toler9',''));
    sptemwc8.Value:=strtoint(ini.readString('上炉体','toler8',''));
    sptemwc7.Value:=strtoint(ini.readString('上炉体','toler7',''));
    sptemwc6.Value:=strtoint(ini.readString('上炉体','toler6',''));
    sptemwc5.Value:=strtoint(ini.readString('上炉体','toler5',''));
    sptemwc4.Value:=strtoint(ini.readString('上炉体','toler4',''));
    sptemwc3.Value:=strtoint(ini.readString('上炉体','toler3',''));
    sptemwc2.Value:=strtoint(ini.readString('上炉体','toler2',''));
    sptemwc1.Value:=strtoint(ini.readString('上炉体','toler1',''));



    sptem56.Value:=strtoint(ini.readString('下炉体','temp56',''));
    sptem55.Value:=strtoint(ini.readString('下炉体','temp55',''));
    sptem54.Value:=strtoint(ini.readString('下炉体','temp54',''));
    sptem53.Value:=strtoint(ini.readString('下炉体','temp53',''));
    sptem52.Value:=strtoint(ini.readString('下炉体','temp52',''));
    sptem51.Value:=strtoint(ini.readString('下炉体','temp51',''));
    sptem50.Value:=strtoint(ini.readString('下炉体','temp50',''));
    sptem49.Value:=strtoint(ini.readString('下炉体','temp49',''));
    sptem48.Value:=strtoint(ini.readString('下炉体','temp48',''));
    sptem47.Value:=strtoint(ini.readString('下炉体','temp47',''));
    sptem46.Value:=strtoint(ini.readString('下炉体','temp46',''));
    sptem45.Value:=strtoint(ini.readString('下炉体','temp45',''));
    sptem44.Value:=strtoint(ini.readString('下炉体','temp44',''));
    sptem28.Value:=strtoint(ini.readString('下炉体','temp28',''));
    sptem27.Value:=strtoint(ini.readString('下炉体','temp27',''));
    sptem26.Value:=strtoint(ini.readString('下炉体','temp26',''));
    sptem25.Value:=strtoint(ini.readString('下炉体','temp25',''));
    sptem24.Value:=strtoint(ini.readString('下炉体','temp24',''));
    sptem23.Value:=strtoint(ini.readString('下炉体','temp23',''));
    sptem22.Value:=strtoint(ini.readString('下炉体','temp22',''));
    sptem21.Value:=strtoint(ini.readString('下炉体','temp21',''));
    sptem20.Value:=strtoint(ini.readString('下炉体','temp20',''));
    sptem19.Value:=strtoint(ini.readString('下炉体','temp19',''));
    sptem18.Value:=strtoint(ini.readString('下炉体','temp18',''));
    sptem17.Value:=strtoint(ini.readString('下炉体','temp17',''));
    sptem16.Value:=strtoint(ini.readString('下炉体','temp16',''));


    sptemwc56.Value:=strtoint(ini.readString('下炉体','toler56',''));
    sptemwc55.Value:=strtoint(ini.readString('下炉体','toler55',''));
    sptemwc54.Value:=strtoint(ini.readString('下炉体','toler54',''));
    sptemwc53.Value:=strtoint(ini.readString('下炉体','toler53',''));
    sptemwc52.Value:=strtoint(ini.readString('下炉体','toler52',''));
    sptemwc51.Value:=strtoint(ini.readString('下炉体','toler51',''));
    sptemwc50.Value:=strtoint(ini.readString('下炉体','toler50',''));
    sptemwc49.Value:=strtoint(ini.readString('下炉体','toler49',''));
    sptemwc48.Value:=strtoint(ini.readString('下炉体','toler48',''));
    sptemwc47.Value:=strtoint(ini.readString('下炉体','toler47',''));
    sptemwc46.Value:=strtoint(ini.readString('下炉体','toler46',''));
    sptemwc45.Value:=strtoint(ini.readString('下炉体','toler45',''));
    sptemwc44.Value:=strtoint(ini.readString('下炉体','toler44',''));
    sptemwc28.Value:=strtoint(ini.readString('下炉体','toler28',''));
    sptemwc27.Value:=strtoint(ini.readString('下炉体','toler27',''));
    sptemwc26.Value:=strtoint(ini.readString('下炉体','toler26',''));
    sptemwc25.Value:=strtoint(ini.readString('下炉体','toler25',''));
    sptemwc24.Value:=strtoint(ini.readString('下炉体','toler24',''));
    sptemwc23.Value:=strtoint(ini.readString('下炉体','toler23',''));
    sptemwc22.Value:=strtoint(ini.readString('下炉体','toler22',''));
    sptemwc21.Value:=strtoint(ini.readString('下炉体','toler21',''));
    sptemwc20.Value:=strtoint(ini.readString('下炉体','toler20',''));
    sptemwc19.Value:=strtoint(ini.readString('下炉体','toler19',''));
    sptemwc18.Value:=strtoint(ini.readString('下炉体','toler18',''));
    sptemwc17.Value:=strtoint(ini.readString('下炉体','toler17',''));
    sptemwc16.Value:=strtoint(ini.readString('下炉体','toler16',''));

    pidout[1].setpoint:=sptem1.Value+sptemwc1.Value;
    pidout[2].setpoint:=sptem2.Value+sptemwc2.Value;
    pidout[3].setpoint:=sptem3.Value+sptemwc3.Value;
    pidout[4].setpoint:=sptem4.Value+sptemwc4.Value;
    pidout[5].setpoint:=sptem5.Value+sptemwc5.Value;
    pidout[6].setpoint:=sptem6.Value+sptemwc6.Value;
    pidout[7].setpoint:=sptem7.Value+sptemwc7.Value;
    pidout[8].setpoint:=sptem8.Value+sptemwc8.Value;
    pidout[9].setpoint:=sptem9.Value+sptemwc9.Value;
    pidout[10].setpoint:=sptem10.Value+sptemwc10.Value;
    pidout[11].setpoint:=sptem11.Value+sptemwc11.Value;
    pidout[12].setpoint:=sptem12.Value+sptemwc12.Value;
    pidout[13].setpoint:=sptem13.Value+sptemwc13.Value;
    pidout[14].setpoint:=sptem14.Value+sptemwc14.Value;
    pidout[15].setpoint:=sptem15.Value+sptemwc15.Value;
    pidout[16].setpoint:=sptem16.Value+sptemwc16.Value;
    pidout[17].setpoint:=sptem17.Value+sptemwc17.Value;
    pidout[18].setpoint:=sptem18.Value+sptemwc18.Value;
    pidout[19].setpoint:=sptem19.Value+sptemwc19.Value;
    pidout[20].setpoint:=sptem20.Value+sptemwc20.Value;
    pidout[21].setpoint:=sptem21.Value+sptemwc21.Value;
    pidout[22].setpoint:=sptem22.Value+sptemwc22.Value;
    pidout[23].setpoint:=sptem23.Value+sptemwc23.Value;
    pidout[24].setpoint:=sptem24.Value+sptemwc24.Value;
    pidout[25].setpoint:=sptem25.Value+sptemwc25.Value;
    pidout[26].setpoint:=sptem26.Value+sptemwc26.Value;
    pidout[27].setpoint:=sptem27.Value+spte