【正文】 (str11)/2)。 then tmpstr:=39。 sbuf[2]:=byte($03)。 senddata。 s:array[0..8192] of char 。,39。 string1:=39。 end。 end。,39。+string1)。01 03 00 00 00 0539。end。procedure (Sender: TObject)。vari:integer。 end。$39。39。 :=39。$39。0139。+copy(Trimplace(Tmr_Rtn_Str1),23,4))=1 then //當(dāng)前狀態(tài) begin :=false。 end。 //關(guān)閉 Ad_id:=StrToInt(39。 :=Return_Sta_Sting(Btn_Qry_Str1)。000439。 //打開 :=39。 //寄存器地址 :=39。varBtn_Qry_Str1:string。 //地址碼 :=39。 end else begin Btn_Qry_Str1:=39。000239。begin :=39。 //數(shù)據(jù)(關(guān)閉) :=+++。0639。 end。begin 。end。 :=Return_Sta_Sting()。0139。 //寄存器地址 if strtoint()35 then begin :=inttostr(strtoint()+1)。end。0639。 //數(shù)據(jù)(加熱) :=39。 :=39。end。 //功能碼 :=39。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。0639。01 06 00 04 00 0039。begin Btn_Qry_Str1:=39。 end。 if StrToInt(39。 :=true。+copy(Tmr_Rtn_Str1,7,4))/10))*10)。+copy(Tmr_Rtn_Str1,7,4))/10))。 end。01 03 00 00 00 0539。 //最終查詢字符串 sentcustom(End_Sqr_Str)。end。狀態(tài)：已開始過濾39。 end。+string1)。 then begin (39。 string1:=replacing(string1,39。39。接收→ 39。) for i:=0 to 9 do s[i]:=chr(48+i)。,39。 var str1:^ss。 sbuf[8]:=byte($C9)。 end else begin setlength(sbuf,9)。 if tmpstr=39。39。39。發(fā)送失敗 !39。 //showmessage(inttostr(high(sbuf)))。begin SetComPort()。//關(guān)閉串口procedure (Sender: TObject)。 except := 39。239。 then :=_8。 //設(shè)置數(shù)據(jù)位 if =39。Odd(奇)39。 then //設(shè)置奇偶校驗(yàn) :=Even。 end。狀態(tài)：39。 :=StrtoInt()。 39。$39。 szData:string。 //將余數(shù)設(shè)定為FFFF for i:=AStart to AEnd do //對(duì)每一個(gè)字節(jié)進(jìn)行校驗(yàn) CalOneByte(AData[i])。 //將數(shù)據(jù)與CRC寄存器的低8位進(jìn)行異或 for j:=0 to 7 do //對(duì)每一位進(jìn)行校驗(yàn) begin tmp:=crc and 1。AStart,AEnd:Integer):Word。 var site,StrLen:integer。$39。F39。])) do inc(t)。,39。M,Code:Integer。,[ord(c)])。varc:char。,tmp)0 do begin p := Pos(39。end。 Inc(Index)。try Index := 0。ValueLen, DataLen, ValueType: DWORD。 //定義全局可變字節(jié)數(shù)組 Cur_Qry_Str: array[1..32] of string。 procedure Timer2Timer(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 Edit11: TEdit。 Button12: TButton。 Edit4: TEdit。 Panel5: TPanel。 Label15: TLabel。 Panel1: TPanel。 Label6: TLabel。 ComboBox2: TComboBox。type TForm1 = class(TForm) Memo1: TMemo。 Button3: TButton。 Button4: TButton。 ComboBox3: TComboBox。 Label9: TLabel。 Button7: TButton。 Label17: TLabel。 Label21: TLabel。 Edit9: TEdit。 Button11: TButton。 BufferLength: Word)。 procedure Button8Click(Sender: TObject)。 //function returnCRC16(vStr1:String):String。 //按鈕、定時(shí)器返回字符串?dāng)?shù)組 cur_wd,Cur_wd_p,set_wd,Cur_Mode,Open_sta:array[1..32] of integer。HARDWARE\DEVICEMAP\SERIALCOMM39。 SetLength(ValueName, ValueLen)。 until (ErrCode ERROR_SUCCESS) 。 var tmp: string。 tmp := Copy(tmp,1,p1)+Copy(tmp,p+1,Length(tmp)p)。beginwhile str39。strtohexStr:= ss。39。F39。..39。..39。 if Code=0 then Result:=Result+Chr(M)。 {刪除source字符串} delete(s,site,StrLen)。 i:Integer。 //將最高位置0