Delphi 串口属性TComm属性封装函数
亲测可用
代码如下(示例):
function TMainForm.GetByteSize(AIndex: Integer): TByteSize;
begin
Result := _8;
case AIndex of
0:
Result := _5;
1:
Result := _6;
2:
Result := _7;
3:
Result := _8;
end;
end;
function TMainForm.GetParity(AIndex: Integer): TParity;
begin
Result := None;
case AIndex of
0:
Result := None;
1:
Result := Odd;
2:
Result := Even;
end;
end;
function TMainForm.GetStopBits(AIndex: Integer): TStopBits;
begin
Result := _1;
case AIndex of
0:
Result := _1;
1:
Result := _1_5;
2:
Result := _2;
end;
end;