如何在Delphi中使用TComPort循环读取行直至输入缓冲区为空？

针对你遇到的RxChar事件仅能读取第一行、剩余数据滞留的问题，核心是利用TComPort的RxBufferCount属性（对应其他语言的in_waiting），在事件触发后循环处理直到缓冲区为空。下面提供两种可靠的实现方式：

方法一：基于ReadLine的循环读取（简单直接） #

利用RxBufferCount判断缓冲区是否还有数据，循环调用ReadLine读取完整行，同时捕获异常处理不完整行的情况：

procedure TYourForm.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Line: string;
begin
  // 循环读取直到缓冲区无数据
  while ComPort1.RxBufferCount > 0 do
  begin
    try
      // 读取以#13为结束符的一行数据
      ComPort1.ReadLine(Line, #13);
      // 这里替换成你的业务逻辑，比如显示或处理该行
      Memo1.Lines.Add(Line);
    except
      // 缓冲区剩余数据不足一行时，跳出循环留到下次处理
      Break;
    end;
  end;
end;

方法二：先读全部数据再拆分行（更健壮） #

如果担心ReadLine的异常处理不够灵活，可以先一次性读取缓冲区所有数据，再手动拆分行，同时维护全局变量保存未完成的行，避免数据丢失：

// 在窗体类中声明全局变量，保存上次未完成的行
private
  FPartialLine: string;

procedure TYourForm.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  RawData: string;
  LineList: TStringList;
  I: Integer;
begin
  // 读取缓冲区所有可用数据
  ComPort1.ReadStr(RawData, ComPort1.RxBufferCount);
  // 合并上次遗留的不完整行
  RawData := FPartialLine + RawData;
  FPartialLine := '';

  LineList := TStringList.Create;
  try
    // 设置分隔符为#13，严格按分隔符拆分
    LineList.Delimiter := #13;
    LineList.StrictDelimiter := True;
    LineList.DelimitedText := RawData;

    // 检查最后一行是否完整（是否以#13结尾）
    if (Length(RawData) > 0) and (RawData[Length(RawData)] <> #13) then
    begin
      // 暂存不完整的行，下次触发事件时合并处理
      FPartialLine := LineList[LineList.Count - 1];
      LineList.Delete(LineList.Count - 1);
    end;

    // 遍历处理所有完整行
    for I := 0 to LineList.Count - 1 do
    begin
      Memo1.Lines.Add(LineList[I]);
    end;
  finally
    LineList.Free;
  end;
end;

关键说明 #

• RxBufferCount：TComPort提供的核心属性，用于获取当前输入缓冲区中待读取的字节数，对应你提到的in_waiting。
• 方法二的优势：避免了ReadLine的异常抛出，同时完美处理了缓冲区末尾的不完整行，适合数据传输频繁、行长度不稳定的场景。

内容的提问来源于stack exchange，提问作者Erlend