Текстовый файл

[Mashul'ka]

Дан не пустой текстовый файл.Удалить из него последнюю строку.
(С помощью каких функций можно найти и удалить эту строку?)

[Terran]

Попробуйте так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: TStringList;
Begin
S:=TStringList.Create;
S.LoadFromFile('1.txt');
S.Delete(S.Count-1);
ShowMessage(S.Text);
End;

[Sazary]

Если в паскале, то ищите последний символ перевода строки и усекайте с помощью truncate.