请教，关于COM打开和释放的问题，碰到了冲突

Question

我的程序中有两个独立的控件访问断口1（COM1），比如A,B如果A要去打开COM1，那么我是这样判断的
if not B.Active then
  A.Open
else begin
  B.Active:= false;
  A.Open;
end;如果B要去打开COM1，那么我是这样判断的
if not A.Active then
  B.Open
else begin
  A.Active:= false;
  B.Open;
end;第一次当然没问题，但是第二次虽然写了A.active:=false;B.open的时候仍然说端口已经被打开了，不知道大家在碰到这种问题时是怎么防止冲突的，怎么强制释放端口的呢？谢谢

Answer 1

to jiangsheng 能不能说的清楚一点，我没看明白你的意思

Answer 2

if not B.Active then
  A.Open
else begin
  B.Active:= false;
  A.Open;
end;就说你这个吧， A.Active 的时候也是不可以再 Open的。

Answer 3

如果A要去打开COM1，
  A.Active:= false;
  B.Active:= false;
  A.Open;如果B要去打开COM1，
  A.Active:= false;
  B.Active:= false;
  B.Open;