【正文】 sbuf[j]:=byte(strtoint(39。 then tmpstr:=39。 if tmpstr=39。 for j:=1 to i do begin tmpstr:=copy(str11,j*21,2)。 setlength(sbuf,i+1)。 //替換字符串中的所有空格 i:=round(length(str11)/2)。39。 tmpstr:string。var str11:string 。end。39。 (viewstring)。發(fā)送39。 end。發(fā)送失敗 !39。 39。 //發(fā)送時字節(jié)間的延時 sleep(1)。 break。 //showmessage(inttostr(high(sbuf)))。39。mflg:boolean。//=============================自定義發(fā)送數(shù)據(jù)過程===============================procedure senddata。begin SetComPort()。end。++39。 := 39。//關閉串口procedure (Sender: TObject)。 //:=InttoStr()。 end。++39。 except := 39。++39。 :=39。 。239。 then :=_1_5。 if =39。139。 then :=_8。 //設置數(shù)據(jù)位 if =39。739。 then :=_6。 //設置數(shù)據(jù)位 if =39。539。 then :=Space。 if =39。Odd(奇)39。 then :=None。 if =39。Mark(標記)39。 then //設置奇偶校驗 :=Even。 if =39。begin try :=StrtoInt()。end。 end。++39。 end else begin :=39。串口打開失敗39。狀態(tài)：39。串口已打開39。串口狀態(tài)：39。 //打開之前先關閉串口 。 :=StrtoInt()。 //。begin //獲取計算機中的串口列表，并設置當前設備的串口號 EnumComPorts()。 //兩個字節(jié)對調(diào)***********end。 39。 ResStr:=IntToHex(Res,4)。 //showmessage(inttostr(Count1))。 //取出字符并轉(zhuǎn)換為16進制數(shù) i:=i+1。$39。 if i=Length(szData) then exit。 j:=0。 //讀入欲校驗的字符串 Count:=round(Length(Trimplace(vStr1))/2)。 szData:string。 Res:Word。var Data:array[0..255] of Byte。end。 //將余數(shù)設定為FFFF for i:=AStart to AEnd do //對每一個字節(jié)進行校驗 CalOneByte(AData[i])。end。 crc:=crc and $FFFF。 //寄存器向右移一位 crc:=crc and $7FFF。 //將數(shù)據(jù)與CRC寄存器的低8位進行異或 for j:=0 to 7 do //對每一位進行校驗 begin tmp:=crc and 1。 //計算1個字節(jié)的校驗碼varj:Integer。 tmp:Byte。 //多項式公式X16+X15+X2+1（1100 0000 0000 0101）var crc:Word。AStart,AEnd:Integer):Word。 end。 {插入target字符串到S中} insert(target,s,site)。 {source的長度} StrLen:=length(source)。 var site,StrLen:integer。end。 inc(t,2)。 Val(ts,M,Code)。$39。$39。f39。a39。F39。A39。939。039。])) do inc(t)。..39。,39。..39。,39。..39。while t=Length(S) dobegin //xlh while (t=Length(S)) and (not (S[t] in [39。Result:=39。M,Code:Integer。vart:Integer。end。end。,[ord(c)])。 ss:=ss+format(39。39。i:integer。varc:char。 end。 end。,tmp)。,tmp)0 do begin p := Pos(39。 while Pos(39。 p : Integer。//=====================替換字符串中的空格函數(shù)===================================function Trimplace(str: string): string。end。finally RegCloseKey(KeyHandle)。 。 //raise (CError_RegError, ErrCode)。 Inc(Index)。 if ErrCode = ERROR_SUCCESS then begin SetLength(Data, DataLen)。 SetLength(Data, DataLen)。 DataLen := 256。try Index := 0。 // raise (CError_RegError, ErrCode)。, 0, KEY_READ, KeyHandle)。beginErrCode := RegOpenKeyEx( HKEY_LOCAL_MACHINE, 39。ValueLen, DataLen, ValueType: DWORD。ErrCode, Index: Integer。 //設置當前溫度、設置溫度、開關狀態(tài)數(shù)組 implementation{$R *.dfm}//=============此處用于自動獲取系統(tǒng)的串口數(shù)目以及名稱，調(diào)用api函數(shù)實現(xiàn)相關功能=====================procedure EnumComPorts(Ports: TStrings)。 //按鈕、定時器返回字符串數(shù)組 Btn_Rtn_Str,Tmr_Rtn_Str:array[1..32] of string。 //定義全局可變字節(jié)數(shù)組 Cur_Qry_Str: array[1..32] of string。 viewstring:string。 private { Private declarations } public { Public declarations } end。AStart,AEnd:Integer):Word。 p