请问如何用DELPHI读取文本文件的最后一行？

[ashfish]

请给一个例子，万分感谢。

[Eagle_ice]

2楼跟4楼的 学习了...

[zhunanhui]

5楼的不对吧，再读已经超出文件尾了。

procedure TForm1.Button1Click(Sender: TObject);
var
  ATextFile: TEXTFile;
  strln:string;
begin
  AssignFile(ATextFile, 'TEST.TXT');
  reset(ATextFile);
  while not Eof(ATextFile) do
  begin
    ReadLn(ATextFile, strln);
  end;
//  readln(ATextFile, strln);
  ShowMessage(strln);
end;

[ashfish]

谢谢各位

[ly_liuyang]

TStringList

[InceptKnowledge]

"1.txt" 文件格式如下：
1
2
3
4

var
  DataList: TStringList;
  Idx: Integer;
begin
  DataList := TStringList.Create;
  try
    DataList.LoadFromFile('1.txt');
    Idx := DataList.Count - 1;
    ShowMessage(DataList.Strings[Idx]);
  finally
    DataList.Free;
  end;

[yxbv84267]

可以把文件加载到TStringList或控件Memo（或其他可加载文件的控件）中
例子如下：
var
StrLst:TList;
FilePath:string; //所要加载的文件完整路径
begin
StrLst:=TStringList.Create;
FilePath:='D:\text.txt'
StrLst.LoadFromFile(FilePath);
ShowMessage(StrLst[StrLst.Count-1]);//StrLst[StrLst.Count-1])读取最后一行
StrLst.Free;
end;

[ffwin]

sTxtFile: TextFile;
fp: TextFile;


if fileexists('txtFilename') then
begin
assignFile(sTxtFile, 'txtFilename');
reset(sTxtFile);
end


try

while not Eof(sTxtFile) do
begin
ReadLn(sTxtFile, Str);
Str := trim(Str);

while not Eof(sTxtFile) do
begin
ReadLn(sTxtFile, Str);
Str := trim(Str);

if Str <> '' then
begin



end;
end; {while}


end; {while }

finally
CloseFile(sTxtFile);

[dinoalex]

while not Eof(sTxtFile) do
begin
ReadLn(sTxtFile, Str);
end;
// 再一次
ReadLn(sTxtFile, Str); 就是最后一行了