delphi - 如何让Delphi从文本文件的特定行读取到特定行

Question

我刚开始使用Delphi，现在不使用数据库，这只是我正在做的练习（文本文件）

我程序的形式是这样设置的：



这就是我的文本文件中的内容：



说明：如果用户要查看国际象棋比赛，则必须输入国际象棋比赛名称，然后程序必须查找国际象棋比赛名称，然后从该行读取所有内容，直到到达“ --​​------- ----------------”，那么它必须将其显示在Rich Edit组件上

这是我的代码：

begin
  AssignFile(tFile, 'ChessRecords.txt');
  Reset(tFile);
  while not Eof(tFile) do
    begin
      sGameName:= '';
      Readln(tFile, sLine);
      iPos:= Pos('/', sLine);
      sGameName:= Copy(sLine, 1,iPos-1);
      if sGameName = edtGameName.Text then
        begin
          repeat
            redOut.Lines.Add(sLine);
          until (sLine = '-------------------------');
        end;
      end;
    end;    
end.

Answer 1

您的repeat until循环不再从文件（Readln()）中读取-您也必须这样做（并还要检查Eof()）。同样，每次调用该函数时，您也可以执行Inc( iLine )，但我看不出您要计数行的原因。

Rob Kennedy，MartynA和ZENsan是正确的：您的方法不是最新的，但坚如磐石的方法仍然可以在20年后执行。