Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
jeka30866
1 / 1 / 1
Регистрация: 14.03.2012
Сообщений: 16
#1

Удалить первую и последнюю строки из файла - Delphi

14.03.2012, 23:02. Просмотров 1394. Ответов 3
Метки нет (Все метки)

Дан текстовый файл. Удалите первую и последнюю строку.
http://www.cyberforum.ru/delphi-beginners/thread1004943.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2012, 23:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удалить первую и последнюю строки из файла (Delphi):

Заполните двумерный массив А (4, 4) целыми числами в диапазоне от 0 до 200 и поменять местами первую и последнюю строки
Дополните приложение кнопкой "Столбцы", которая производит обмен указанных...

Удалить из текстового файла его последнюю строку
1)Удалить из текстового файла его последнюю строку. Результат записать в другой...

Удалить из строки последнюю строку, если она пустая
У меня есть многострочный hint. В нем последняя строка пустая. Нужно удалить...

Удалить первую строку из файла
подредьте плиз , сижу целый день не могу сделать program Project1; ...

Удалить из файла две первые и две последние строки и добавить строки с экрана в начало и конец файла
Задание: Создать текстовый файл. Заполнить его произвольным числом строк....

3
салома
6 / 6 / 3
Регистрация: 08.09.2011
Сообщений: 281
15.03.2012, 00:22 #2
а чем суть ? надо сделать программу открывающую файл , прямое редактирование и сохранение?
0
jeka30866
1 / 1 / 1
Регистрация: 14.03.2012
Сообщений: 16
19.03.2012, 18:56  [ТС] #3
сделать вот это
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  f:TStringList;
  a,i:integer;
  begin
    f:=TStringList.Create; //выполнил инициализацию
    f.LoadFromFile('textin.txt');//загрузили текстовый файл
    a:=f.Count;
    f.Delete(0);
    f.Delete(f.Count-1);
    f.SAveTofile('textin.txt'); // сохраняем измененный текст в файл
    f.Free;
  end;
 end.
ток через ассиптфайл
0
Psilon
Master of Orion
Эксперт .NET
5981 / 4834 / 901
Регистрация: 10.07.2011
Сообщений: 14,439
Записей в блоге: 5
Завершенные тесты: 4
19.03.2012, 20:44 #4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var f,g:text;
    sFileName,s:string;
begin
sFileName:='textin.txt';
Assignfile(f,sFileName);
Reset(f);
Readln(f);
Assignfile(g,'temp.txt');
Rewrite(g);
while not(eof(f)) do
begin
  Readln(f,s);
  if not(eof(f)) then Writeln(g,s);
end;
close(f);
DeleteFile(sFileName);
Close(g);
Rename(g,sFileName);
end.
Экзешник:
1
Вложения
Тип файла: rar DelFirstLast.rar (223.1 Кб, 17 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2012, 20:44
Привет! Вот еще темы с решениями:

Определить первую и последнюю букву слова
Собственно вопрос в названии.

Поменять первую и последнюю буквы в словах
Задача такова : на форме есть 2 едита, в 1 из них пишутся 3 слова разделенные...

как поменять первую и последнюю цифру местами?
дано число как поменять первую и последнюю цифру местами?

Как определить первую и последнюю цифру в числе?
Как определить первую и последнюю цифру в натуральном числе?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru