delphi tcomport获取电子称重量

我使用tcomport组件 读取 欧陆达AWH-30A这款电子称的重量，通过串口连接。

//波特率设置br9600
//ControlDTR 设置成 DtrEnable
//TriggersOnRxChar设置成true

var
 portData:string; 

//打开串口
procedure TForm1.Btn_openComportClick(Sender: TObject);
begin

  if not ComPort1.Connected then
    ComPort1.Open
  else
    ComPort1.Close;

  if not Edit1.Focused then
    Edit1.SetFocus;

end;

// comport事件，读取重量
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: string;
begin
  ComPort1.ReadStr(Str, Count);
  portData := portData + Str;
end;


//定时器截取重量
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Pos(#10, portData) > 0 then
  begin
    Edit1.Text := '';
    Edit1.Text := portData;
    portData := '';
  end;
end;

标签：begin,end,ComPort1,delphi,Edit1,Str,portData,称重量,tcomport
来源： https://www.cnblogs.com/yangxuming/p/14116437.html