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

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

[解决办法]
又是你，呵呵。

一种方法：

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;