关于文本文件读取问题

Question

怎么能读取出文件的 倒数的n个字符???????
reset一个一个往下找似乎太麻烦

Answer 1

用FileSize获得文件的大小，然后再用Seek将文件指针移动到(大小 - n)处，就可以读取了。

Answer 2

倒数的n个字符? 不是n行,seek也没用!

Answer 3

用TFileStream
var
  FileStream: TFileStream;
  N: Integer;
  FileName: string;
begin
  FileStream := TFileStream.Create(FileName, fmOpenReadWrite);
  FileStream.Seek(-N, soFromEnd);end;

Answer 4

var
  FileStream: TFileStream;
  N: Integer;
  FileName: string;
  B: Char;
begin
  FileStream := TFileStream.Create(FileName, fmOpenReadWrite);
  FileStream.Seek(-N, soFromEnd);
  FileStream.ReadBuffer(B, 1);  //B就是你所要的字符
end;