【正文】 if tmp=1 then //檢測移出的位，如果為1，那么與多項式異或 crc:=crc xor GENP。function returnCRC16(vStr1:String):String。 //讀入需要計算的字符串長度 i:=1。 end。//=================================設(shè)置串口=====================================procedure ()。 // :=39。 end。//==============================打開串口==================================procedure (Sender: TObject)。 then :=Mark。Space(空格)39。 //設(shè)置數(shù)據(jù)位 if =39。 then //設(shè)置停止位 :=_1。 。串口打開失敗39。狀態(tài)：39。vari:integer。 end。 viewstring:=39。// ==========================串口發(fā)送數(shù)據(jù)=======================================procedure sentcustom(SqrStr:string)。 //獲得字符串長度,除2取整后加1 //showmessage(inttostr(i))。0039。 sbuf[3]:=byte($00)。end。 n:integer。239。39。 //轉(zhuǎn)換字符串完畢后，清空buffer ZeroMemory(buffer,0)。 {string1:=replacing(string1,39。39。 Tmr_Rtn_Str[1]:= string1 end。 then begin Tmr_Rtn_Str[i]:= string1。//==============================清除MEMO文本框中的數(shù)據(jù)============================procedure (Sender: TObject)。begin :=39。Cur_CRC16Str,End_Sqr_Str:string。//定時返回狀態(tài)值procedure (Sender: TObject)。+)。) and (copy(Tmr_Rtn_Str1,5,2)=39。.39。+copy(Tmr_Rtn_Str1,11,4))/10))。 end else begin :=true。 :=39。 except end。$39。 //打開 :=39。 //寄存器地址 :=39。0139。000139。begin if =39。0639。01 06 00 02 00 0139。 //寄存器地址 :=39。0139。 :=Return_Sta_Sting()。 //功能碼 :=39。procedure (Sender: TObject)。end。begin :=true。 //數(shù)據(jù)(關(guān)閉) :=+++。begin :=39。000139。 end。 //地址碼 :=39。000039。 //制熱模式 :=Return_Sta_Sting(Btn_Qry_Str1)。 end。0639。01 06 00 04 00 0139。 //地址碼 :=39。 then begin Btn_Qry_Str1:=39。Btn_Qry_Str1:string。0039。 end。+copy(Tmr_Rtn_Str1,15,4))=1 then //當(dāng)前模式 begin :=false。$39。$39。 //狀態(tài)返回值 //:=Tmr_Rtn_Str1。 //定時器狀態(tài)返回字符串變量begin Tmr_Qry_Str1:=39。+Cur_CRC16Str。begin 。begin :=39。39。接收39。39。)。 end else begin for i:=0 to do begin string1:=replacing(string1,trim([i]),39。 // 除取整 除取余 //(39。E39。039。 type ss=array[1..8192]of char 。 sbuf[7]:=byte($85)。 //將變量轉(zhuǎn)換為byte數(shù)組 end。 //showmessage(tmpstr)。begin if SqrStr39。 //(39。 if not mflg then messagedlg(39。 mflg:=true。//==============================設(shè)置串口號======================================procedure (Sender: TObject)。end。串口已開始捕獲39。 if =39。839。 then //設(shè)置數(shù)據(jù)位 :=_5。 if =39。Even(偶)39。串口已關(guān)閉39。 except := 39。 :=。 Result:=RightStr(ResStr,2)+39。 Data[j]:=StrToInt(39。 ResStr:string。begin crc:=$FFFF。begin crc:=crc xor AByte。//// CalCRC16用于計算Modbus RTU的CRC16// 多項式公式為X16+X15+X2+1//function CalCRC16(AData:array of Byte。//替換字符串函數(shù)function replacing(s,source,target:string):string。+S[t] else ts:=39。..39。f39。939。ts:string。%0x39。//字符串轉(zhuǎn)成16進制代碼function strToHexStr(str:string):string。 39。 。 (Data)。TmpPorts := 。ValueName, Data: string。 //定義全局字符串 rbuf,sbuf:array of byte。 procedure Button13Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure Button1Click(Sen