Question

delphi7 怎样快速读取文本文件的最后一行？

如文件中内容如下：
00001 O--O-OOOOO- wa 0.1.0.5
...
10000 O--O-OOOOO- wa 0.1.0.5
怎样快速读取到最后一行，并可以将10000、O--O-OOOOO- 、wa、0.1.0.5 分别读取？

Answer 1

var strs: TStringList;
line: string;
parts: TStringList;

strs := TStringList.Create;
try
strs.LoadFromFile(Filename);
line := strs[strs.Count - 1]; //这就是你要读取的内容

//分解过程, 将分隔符替换为换行符
line := StringReplace(line, '--' , sLIneBreak, [rfReplaceAll]);
parts := TStringList.Create;
parts.Text := line;
//按下表读取parts[0], parts[1].....就可以得到分割好的每一段了
parts.Free;

finally
strs.free;
end;

Answer 2

恩，楼上正解。
或者使用文件的流操作，循环read到字符串，直到最后，再 进行如上操作