Delphi 打开串口与关闭串口 procedure TForm1.btn1Click(Sender: TObject); begin cm1.CommName:=cbb1.Text; cm1.BaudRate:=strtoint(cbb2.Items[cbb2.ItemIndex]); case cbb3.ItemIndex of :cm1.ByteSize:=_5; :cm1.ByteSize:=_6; :cm1.ByteSize:=_7; :cm1.ByteSize:=_8; end; c