帮我解释个代码

Question

function OpenPort(CommPort:PChar):Boolean;
begin
try
   aCPort:=TComport.Create(nil); 
   aCPort.BaudRate:=Br9600;
   aCPort.Port:=CommPort;
   aCPort.Parity.Bits:=prMark;
   aCPort.Open;          //无法打开
except
   Result:=False;
   Exit;
end;
Result:=True;
end;
里面的pr是上面意思的

Answer 1

pr应该是aCPort串口控件提供的,你安装这个控件就应该有了

Answer 2

应该是进行串口通信的，了解的不深，不过TParityBits = (prNone, prOdd, prEven, prMark, prSpace);
查看原文：
http://vvv.truls.org/pascal/Units.Delphi/Modem/cport/CPort.pas