Delphi中如何将TXT文件读取光标定位到指定行并加载对应数据

我完全理解你的需求——你已经能通过CheckTXTFileForDataName找到目标数据块的起始行号，现在就差把文件读取指针跳到对应位置，然后批量读取后续的N行数据对吧？在Delphi里用传统的TextFile类型处理的话，方法其实很直接，咱们一步步来完善你的代码：

核心思路：顺序跳过无关行 #

TextFile本身没有直接跳转到指定行的API，因为它是顺序读取的类型。所以咱们的解决办法就是：从文件开头开始，循环读取并跳过目标行之前的所有行，把指针“挪”到你需要的位置。

完善后的代码示例 #

结合你提供的代码和需求，我帮你调整了逻辑，同时补上了一些容易遗漏的细节（比如关闭文件、解析计数、异常防护）：

type
  // 明确你的记录类型，方便参考
  TDataRecord = record
    keycode: Word;
    shiftState: Boolean;
  end;

  TResultArray = array of record
    nameIsInFile: Boolean;
    lineNumber: Integer; // 目标数据标题所在的行号（从1开始计数）
  end;

function LoadArrayFromTXTFile(const arrayName: string): array of TDataRecord;
var
  txtFile: TextFile;
  txtFilePath, fileLine: string;
  i, KeycodeCount: Integer;
  CheckResult: TResultArray;
begin
  SetLength(Result, 0); // 初始化结果为空数组
  txtFilePath := GetFilePath('Date Arrays\DataArrays.txt');

  if not FileExists(txtFilePath) then Exit;

  AssignFile(txtFile, txtFilePath);
  try
    Reset(txtFile);
    CheckResult := CheckTXTFileForDataName(arrayName); // 简化调用，可根据实际参数调整

    if not CheckResult[0].nameIsInFile then Exit;

    // 步骤1：跳过目标标题行之前的所有行
    for i := 1 to CheckResult[0].lineNumber - 1 do
    begin
      if Eof(txtFile) then Break; // 防止文件提前结束
      ReadLn(txtFile); // 只跳过，不保存内容
    end;

    // 步骤2：读取标题行，提取数据行数（KeycodeCount）
    if Eof(txtFile) then Exit;
    ReadLn(txtFile, fileLine);
    // 分割|后面的计数部分，用Trim去掉多余空格
    Delete(fileLine, 1, Pos('|', fileLine));
    KeycodeCount := StrToInt(Trim(fileLine));

    // 步骤3：读取指定数量的数据行
    SetLength(Result, KeycodeCount);
    for i := 0 to KeycodeCount - 1 do
    begin
      if Eof(txtFile) then Break; // 防止文件行数不足
      ReadLn(txtFile, fileLine);
      // 解析keycode：取逗号前的部分
      Result[i].keycode := StrToInt(Copy(fileLine, 1, Pos(',', fileLine) - 1));
      // 解析shiftState：取逗号后的部分，Trim去空格再转布尔值
      Result[i].shiftState := StrToBool(Trim(Copy(fileLine, Pos(',', fileLine) + 1, Length(fileLine))));
    end;
  finally
    CloseFile(txtFile); // 无论成功失败，都要关闭文件，避免资源泄漏
  end;
end;

关键注意事项 #

• 文件必须关闭：一定要用try...finally包裹文件操作，确保即使发生异常，文件也能被正确关闭，这是Delphi文件操作的基本规范。
• 行号计数要准确：确保CheckTXTFileForDataName返回的lineNumber是从1开始的（因为TextFile的第一行就是行号1），否则定位会出错。
• 异常防护：实际使用时，建议给StrToInt、StrToBool这些转换函数加上try...except块，避免因为文件格式错误导致程序崩溃。
• 效率优化（可选）：如果你的文件很大，两次遍历文件（一次检查存在性、一次读取数据）会有点浪费。可以考虑把CheckTXTFileForDataName的逻辑整合到读取函数里，一次遍历完成定位和读取，提升效率。

针对你示例文件的测试场景 #

比如你的示例文件里FirstArray在第1行，CheckResult[0].lineNumber返回1：

1. 跳过行的循环for i:=1 to 0 do不会执行，指针停在第1行。
2. 读取第1行标题，提取出58作为KeycodeCount。
3. 循环读取58行数据，依次解析每个keycode和shiftState，存入结果数组。

这样就完全符合你的需求啦！

备注：内容来源于stack exchange，提问作者Ineffable21