很好的串行通迅软件 procedure TFrmMain.VaComm1RxChar(Sender: TObject; Count: Integer); var a, b:integer; j:char; begin Timer1.Enabled:=False; b := vacomm1.ReadBufUsed; for a := RecvPoint to RecvPoint+b-1 do begin if vacomm1.read