请教一下如何删除某个文件的最后一行

请问一下怎么删除某个文件的最后一行?
如题,谢谢。

------解决方案--------------------
又是你,呵呵。

一种方法:

var
S : TStringList;
begin
S := TStringList.Create;
S.LoadFromFile( 'C:\YourText.txt ');
S.Delete(S.Count-1);
S.SaveToFile( 'C:\YourText.txt ');
S.Free;
end;