如何讓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年后執行。