Delphi Comport没有获得完整的数据

Question

我有这段代码：

procedure Tfrm_main.cport_scanningRxChar(Sender: TObject; Count: Integer);
begin
  cport_scanning.ReadStr(data, Count);
  memo3.Text := data;
end;

实际结果是：

memo3.text := M000000;

然后它变成了：

memo3.text := 021111D;

预期结果：

memo3.text := M000000021111D;

Answer 1

将来，它将有助于指出您正在使用的组件，特别是因为TComPort没有附带Delphi。

答案是因为可以在收到所有数据之前调用OnRxChar。您的代码应为：

procedure Tfrm_main.cport_scanningRxChar(Sender: TObject; Count: Integer);
begin
  cport_scanning.ReadStr(data, Count);
  memo3.Text := memo3.Text + data;
end;