procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end

用Delphi编写的RFID串口通讯测试界面，可完成RFID的串口通讯功能。-With Delphi serial communications testing an RFID interface, complete RFID serial communication functions.