Delphi 串口属性函数

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;

---

总结

该函数可直接调用，举例：cm1.StopBits := GetStopBits(cbbStopBit.ItemIndex);