a,ocr:integer; ocr=4356; a:=ocr-int(ocr div 256)*256; 错在那里?(17分)

  • 主题发起人 主题发起人 bill_won
  • 开始时间 开始时间
B

bill_won

Unregistered / Unconfirmed
GUEST, unregistred user!
incompatible types :'integer' and 'extended'
 
和校验用的,就是取该数除256的余数。
a,ocr:integer
ocr=4356
a:=ocr-int(ocr div 256)*256;
incompatible types :'integer' and 'extended'
下面的代码有正确。
If not a=(ocr-int(ocr div 256)*256)) then
exit;

 
ocr div 256 本身就是整性数
只要ocr-(ocr div 256)*256就行了,去掉int
 
用mod不就行了!干嘛这么费劲!
 
后退
顶部