我用Read读取文本文件中的一个整数，为什么在当前位置读不到 它就自动跑到下一行去读呢？

Question

Read(F,i);
怎么样才能让它留在该行，不管读到数据没有呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  StateName: String[20];
  CapitalName: String[20];
begin
  Memo1.Clear;
  AssignFile(F, 'aa.TXT');
  Reset(F);
  try
    while not Eof(F) do
    begin
      Read(F, StateName, CapitalName);
      Memo1.Lines.Add(StateName);
      Memo1.Lines.Add(CapitalName);
    end;
  finally}
    CloseFile(F);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  StateName: String[20];
  CapitalName: String[20];
begin
  Memo1.Clear;
  AssignFile(F, 'aa.TXT');
  Reset(F);
  Read(F, StateName, CapitalName);
  Memo1.Lines.Add(StateName);
  Memo1.Lines.Add(CapitalName);
  CloseFile(F);
end;

Answer 2

to： halibut(乡下人)
可以解释一下吗？我看不懂。谢谢

Answer 3

to： huangrenguang(湖) 
可以具体一点说吗？
你贴的代码我看不出对我有什么用？

Answer 4

读完后再Seek(-1,File)
文件读取的时候是会自动移动到下一行的