delphi – 如何增加分配给变量的串行数据的数量？

更新：

(假设接收到的字符串以CRLF组合结束,并且数据包长度不是常量.这是NMEA 0183数据包)

var
  finalBuf: AnsiString;

// Example packet: $HEHDT,10.17,T*28 + CRLF
// This is a NMEA 0183 protocol (Marine and GPS standard)
// Subset for reading the heading.
// HDT Heading – True
//       1   2 3
//       |   | |
//$--HDT,x.x,T*hh
//1) Heading Degrees,true
//2) T = True
//3) Checksum
// HE stands for: Heading – North Seeking Gyro

{- Checking packet and checksum,calculating heading }
Function ParseAndCheckNMEA_HDT(const parseS: AnsiString;
  var heading: Double): Integer;
// Example packet: $HEHDT,T*28 + CRLF
var
  i,p,err: Integer;
  xorSum: Byte;
  xorStr: AnsiString;
  headingStr: AnsiString;
begin
  Result := 0; // Assume ok
  if (Pos('$HEHDT',parseS) = 1) then // Start header ok ?
  begin
    p := Pos('*',parseS);
    if (p <> 0) and (Length(parseS) >= p + 2) then
    // Assumes a checksum in packet
    begin
      xorSum := Ord(parseS[2]);
      for i := 3 to p - 1 do // Calculate checksum
        xorSum := xorSum xor Ord(parseS[i]);
      xorStr := IntToHex(xorSum,2);
      if (UpperCase(xorStr) = Copy(parseS,p + 1,2)) then // Checksum ok ?
      begin
        // Validate heading
        headingStr := Copy(parseS,8,p - 10);
        Val(headingStr,heading,err);
        if (err <> 0) then
          Result := 4; // Not a valid float
      end
      else
        Result := 3; // Wrong checksum
    end
    else
      Result := 2; // No checksum
  end
  else
    Result := 1; // Wrong header
end;


procedure TMainForm.ComPortRxChar(Sender: TObject; Count: Integer);
var
  i,err: Integer;
  strBuf: AnsiString;
  heading: Double;
begin
  ComPort.ReadStr(CPort.Str,Count);
  strBuf := CPort.str;
  for i := 1 to Length(strBuf) do
    case strBuf[i] of
      '$' : 
        finalBuf := '$';  // Start of package
      #10 :
        begin
          if (finalBuf <> '') and (finalBuf[1] = '$') then  // Simple validate check 
            begin
              SetLength( finalBuf,Length(finalBuf) - 1); // Strips CR
              err := ParseAndCheckNMEA_HDT(finalBuf,heading);
              if (err = 0) then 
                Memo.Lines.Add(finalBuf); // Add validated string
              //else
              //  Memo.Lines.Add('Error:' + IntToStr(err)); 
            end;
          finalBuf := '';
        end; 
    else
      finalBuf := finalBuf + strBuf[i];  
    end;
end;

知道开始字符和数据包结束,这应该是相当安全的使用.
标记包结束的#13和#10(CR LF)字符被剥离,并检查包的有效校验和,并计算得到的标题值.
然后将经过验证的字符串添加到备忘录中.

更新2

要回答直接问题,为什么接收方法可以在数据字符串的中间添加“haha”字符串：

comport例程按照自己的节奏传递一个或多个字符的数据.您无法控制何时获取数据或将有多少个字符.在我的回答中使用该方案,数据被缓冲,直到交付完整的包.通过TComPort的数据包支持,可以执行相同的操作.

从您的评论看,似乎有几个NMEA 0183传感器类型连接到串行端口. (给出其他长度的包,但都以$字符开头).

用以下函数替换ParseAndCheckNMEA_HDT以在这种情况下验证字符串：

Function ParseAndCheckNMEA(const parseS: AnsiString): Integer;
// Example packet: $HEHDT,p: Integer;
  xorSum: Byte;
  xorStr: AnsiString;
begin
  Result := 0; // Assume ok
  if (Pos('$',2);
      if (UpperCase(xorStr) <> Copy(parseS,2)) then // Checksum ok ?
        Result := 3; // Wrong checksum
    end
    else
      Result := 2; // No checksum
  end
  else
    Result := 1; // Wrong header
end;