Length: Word); var i:integer; begin viewstring:=‘’ ; move(buffer^,pchar(@rbuf^),bufferlength); for i:=1 to bufferlength do viewstring:=viewstring+ inttohex(rbuf[i],2)+‘’ ; viewstring:=‘接收’+ viewstring; memo1.lines.add(viewstring); memo1.lines.add(‘’ ); end; 如果 memo1 上显示发送 F0 01 FF FF 01 F0 和接收到 F0 01 FF FF 01 F0, 这 表示串口已正确地发送出数据并正确地接收到数据,则串口通信成功。