Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки

@Дмитрийййй · Регистрация: 15.08.2017

Author24 — интернет-сервис помощи студентам

Дан текстовый файл , содержащий более трех строк. Удалить из него три последние строки.

@Puporev · 10.05.2014, 12:50

Можно так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringlist;
    i:byte;
begin
t:=TStringlist.Create;
if opendialog1.Execute then
t.LoadFromFile(opendialog1.FileName);
for i:=1 to 3 do
t.Delete(t.Count-1);
//t.SaveToFile('2.txt');//в новый файл
t.SaveToFile(opendialog1.FileName)//в тот же файл
end;

@Дмитрийййй 0 / 0 / 0 Регистрация: 15.08.2017 Сообщений: 1
		1
	Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки 10.05.2014, 06:41. Показов 1983. Ответов 1 Метки нет (Все метки) Дан текстовый файл , содержащий более трех строк. Удалить из него три последние строки. 0

	10.05.2014, 12:50

Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки

Решение