首頁猿問主要是發(fā)送一串數(shù)據(jù)...

主要是發(fā)送一串數(shù)據(jù) ，發(fā)送時候老提示''is not a valid integer value？

數(shù)據(jù)結構

慕神8447489 2022-12-15 17:13:25

發(fā)送的數(shù)據(jù)為0xaa+0x55+調號+頻率1+頻率2+頻率3+（調號+頻率1+頻率2+頻率3和取反）頻率1，2，3是一個長式子的16進制的值的后3個字節(jié)大俠幫看下改好一定追加procedure TForm1.Button1Click(Sender: TObject);vara,b,c,e,f,g:int64;j:string;beginif combobox2.text=''then showmessage('調號為空')elsebeginif combobox3.text=''then showmessage('請選擇頻率')elsebeging:=round(32768*(((4*strtofloat(combobox3.text))/14.7456)-3/2));j:=inttohex(g,6);a:=strtoint(copy(j,1,2));b:=strtoint(copy(j,3,2));c:=strtoint(copy(j,5,2));e:=strtoint(combobox2.text)+a+b+c;f:=(not e);if radiobutton1.Checked thenmscomm1.output:=chr($aa)+chr($55)+chr(strtoint(combobox2.text))+chr(a)+chr(b)+chr(c)+chr(f);Application.CreateForm(Tform5,form5);form5.showmodal;form5.free;end;end;end;combobox2里是 1-20的整數(shù)combobox3里是帶小數(shù)點的數(shù)為什么會報錯？該怎么改？謝謝 f:=(not e);取反

查看完整描述

3 回答

胡說叔叔

TA貢獻1804條經(jīng)驗獲得超8個贊

你看看你的 combobox2 里的內(nèi)容是數(shù)字么, 估計是這抱的錯, strtoint(combobox2.text)

反對回復 2022-12-18

慕標5832272

TA貢獻1966條經(jīng)驗獲得超4個贊

''is not a valid integer value 表示你strtoint函數(shù)使用的時候有值是''，
從語法上來看看不出來的，要你自己下斷點跟蹤，從
g:=round(32768*(((4*strtofloat(combobox3.text))/14.7456)-3/2));
這句開始下斷點，一步步的走，看值，如果到Application.CreateForm(Tform5,form5);這句還沒有報錯的話，那就不是你這個單元的東西有問題了，就有可能是form5的create事件里有問題代碼。
另外兩點建議：round()這個函數(shù)有BUG的，你showmessage(inttostr(round(3.5))) 和showmessage(inttostr(round(4.5))) 看看效果就知道了。一般這樣解決，不保留小數(shù)：trunc(a+0.5) 一位小數(shù)：trunc((a*10+0.5)/10) 二位小數(shù)：trunc((a*100+0.5)/100)
建議你串口發(fā)送的數(shù)據(jù)放一個數(shù)組里比較好，象你這個就直接一個整形數(shù)組，接收端收到就可以直接用，MSCOMM好像是可以直接發(fā)送數(shù)組的，久了沒用，忘記了

反對回復 2022-12-18