【正文】 der: TObject)。 Label24: TLabel。 Edit7: TEdit。 Label19: TLabel。 Label14: TLabel。 Label13: TLabel。 GroupBox3: TGroupBox。 Label1: TLabel。 Label3: TLabel。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPComm, ExtCtrls,StrUtils。 ComboBox1: TComboBox。 Button5: TButton。 ComboBox4: TComboBox。 Label10: TLabel。 Button9: TButton。 Edit2: TEdit。 Edit6: TEdit。 Label25: TLabel。 Button13: TButton。 procedure Button3Click(Sender: TObject)。 procedure Button9Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 //設置當前溫度、設置溫度、開關狀態(tài)數組 implementation{$R *.dfm}//=============此處用于自動獲取系統(tǒng)的串口數目以及名稱，調用api函數實現相關功能=====================procedure EnumComPorts(Ports: TStrings)。, 0, KEY_READ, KeyHandle)。 SetLength(Data, DataLen)。 。 p : Integer。 end。39。end。while t=Length(S) dobegin //xlh while (t=Length(S)) and (not (S[t] in [39。,39。939。f39。 inc(t,2)。 {插入target字符串到S中} insert(target,s,site)。 tmp:Byte。 crc:=crc and $FFFF。var Data:array[0..255] of Byte。 j:=0。 //showmessage(inttostr(Count1))。begin //獲取計算機中的串口列表，并設置當前設備的串口號 EnumComPorts()。串口狀態(tài)：39。 end else begin :=39。begin try :=StrtoInt()。 if =39。 then :=Space。739。 if =39。 :=39。 end。++39。mflg:boolean。 //發(fā)送時字節(jié)間的延時 sleep(1)。發(fā)送39。var str11:string 。 setlength(sbuf,i+1)。 sbuf[j]:=byte(strtoint(39。 sbuf[4]:=byte($00)。//==================================接收數據====================================procedure (Sender: TObject。 string1:string。,39。 for i:=1 to bufferlength do begin n:=ord(str1^[i])。 //根據過濾狀態(tài)，調用replacing函數替換字符串 if =39。82 71 14 01 08 39。)。} if trim(string1) 39。 Tmr_Qry_Str[i]:=39。begin 。狀態(tài)：已停止過濾39。begin for i:=1 to 32 do //循環(huán)地址碼1~32,將查詢返回值保存至數組 begin if strtoint(copy(Trimplace(SqrStr),1,2))=i then begin Cur_CRC16Str:=returnCRC16(SqrStr)。vari,Ad_id:integer。 //查詢字符串地址碼 try For i:=1 to 16 do begin if i=Ad_id then begin Tmr_Qry_Str[i]:=Tmr_Qry_Str1。0A39。+IntToStr(StrToInt(39。 //設置溫度 :=。 :=false。0139。end。+)。0039。000039。 :=39。 //數據(關閉) :=Btn_Qry_Str1。0139。 //功能碼 :=39。 //睡眠模式 :=Return_Sta_Sting(Btn_Qry_Str1)。000139。 //地址碼 :=39。 end。000139。begin :=false。end.。procedure (Sender: TObject)。 :=intToHex((strtoint())*10,4)。procedure (Sender: TObject)。 //功能碼 :=39。0139。0139。 //寄存器地址 :=39。01 06 00 02 00 0039。 end。 //地址碼 :=39。 end else begin Btn_Qry_Str1:=39。0139。0139。vari,Ad_id:integer。 :=39。0039。$39。+copy(Tmr_Rtn_Str1,7,4))(trunc(StrToInt(39。 :=IntToStr(trunc(StrToInt(39。 //執(zhí)行狀態(tài)查詢 Tmr_Rtn_Str1:=Trimplace(Tmr_Rtn_Str[i])。 //定時器狀態(tài)查詢字符串變量Tmr_Rtn_Str1:string。 39。procedure (Sender: TObject)。procedure (Sender: TObject)。 end else Tmr_Qry_Str[i]:=39。 then begin (39。 {if trim(string1) 39。39。 then begin string1 :=string1。