Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление строки в файле делфи [D7]

Страницы: 1 2 >
Ponchik © (2013-04-19 00:42:00)
Здравствуйте. Удаляю строку в файле через delete(i), но при удалении символы удабираются,а курсор остается на этой же строке (теперь пустой,но имеющейся). как сделать,чтоб при удалении курсор помещался в конец последней строки без пустой?

Anatoly Podgoretsky (2013-04-26 19:38:00) [1]
> Ega23 (26.04.2013 13:43:29) [29]

Дареному коню в зубы не
смотрят.

Anatoly Podgoretsky (2013-04-26 19:37:00) [2]
> Ega23 (26.04.2013 13:46:30) [30]

Кому
застрелиться,
а некоторые
на этом
деньги
делают.

Ega23 (2013-04-26 13:46:00) [3]

> Это только один том, а если 40 томов?

Это вся "Война и мир". Все 2 тома, 4 части. 40 томов - кому это надо, пардон май френч? Это-ж ̶ё̶бзастрелиться можно, сколько.

Ega23 (2013-04-26 13:43:00) [4]

> считаем это логом аппаратуры за год)

> Ну например лог, ничего особенного

Объясните мне: нахрена это всё писать в один файл? Это же неудобно!

Anatoly Podgoretsky (2013-04-26 13:43:00) [5]
> Ega23 (26.04.2013 11:51:24) [24]

Это только один том, а если 40
томов?

Anatoly Podgoretsky (2013-04-26 13:42:00) [6]
> Ega23 (26.04.2013 11:44:22) [22]

Ну например лог, ничего
особенного

brother (2013-04-26 12:32:00) [7]
автономной... на сев. полюсе...)

brother (2013-04-26 12:31:00) [8]
считаем это логом аппаратуры за год)

Ega23 (2013-04-26 11:51:00) [9]

> а че бы и нет?

"Война и Мир" полностью занимает 5.5 метров. В FB2. В юникоде.

brother (2013-04-26 11:48:00) [10]
а че бы и нет?

Ega23 (2013-04-26 11:44:00) [11]

> И файлик размером в пару сотен мегабайт

Текстовый?

Anatoly Podgoretsky (2013-04-26 11:19:00) [12]
И файлик размером в пару сотен мегабайт

Германн (2013-04-26 01:47:00) [13]

> Ega23 © (26.04.13 00:46) [19]
>
>
> > А где же тот самый курсор
>
> Насколько я понял, он это дело через Мемо делал.
>

В этом как раз нет сомнений, кроме одного что это мог быть и РичЭдит. :)
Я высказался против заявления Но это тупо по его случаю, которое следует после примера в petvv (25.04.13 22:10) [16].
Ведь вопрос то автора был не совсем про удаление строки в файле. А
> как сделать,чтоб при удалении курсор помещался в конец последней
> строки без пустой?
Понятно, что сей вопрос нифига не понятен. Но зачем с умным видом заявлять, что мой пример самое то! :)

Ega23 (2013-04-26 00:46:00) [14]

> А где же тот самый курсор

Насколько я понял, он это дело через Мемо делал.

Германн (2013-04-25 23:49:00) [15]

> petvv (25.04.13 22:10) [16]
>
> чёт от тебя только болобольство одно. А если бы человек
> смотрел, что копирует и вставляет в свой проект:
> 1
> 2
> 3
> 4
> 5
> 6
> 7
> 8
> 9
> 10
>
> begin
> F:=TStringList.Create;
> F.LoadFromFile(FileName);
> for I := F.Count - 1 downto 0 do begin
> if Pos(Word, F.Strings[I]) > 0 then
> F.Delete(I);
> end;
> F.SaveToFile(FileName);
> ShowMessage(IntToStr(F.Count));
> F.Free;
>
> Но это тупо по его случаю.

А где же тот самый курсор, который должен помещаться в конец последней строки без пустой?

Ega23 (2013-04-25 22:34:00) [16]
Если файла не существует, или нет доступа на его чтение, или нет доступа на его запись, то в твоём коде утечка памяти.

petvv (2013-04-25 22:10:00) [17]
чёт от тебя только болобольство одно. А если бы человек смотрел, что копирует и вставляет в свой проект:
begin F:=TStringList.Create; F.LoadFromFile(FileName); for I := F.Count - 1 downto 0 do begin if Pos(Word, F.Strings[I]) > 0 then F.Delete(I); end; F.SaveToFile(FileName); ShowMessage(IntToStr(F.Count)); F.Free;
Но это тупо по его случаю. Если кого то обидел извиняйте, но это не с моего проекта, а с тырнета. Пишу из дома, завтра (напомнить :)))))))))))

Ega23 (2013-04-25 21:56:00) [18]

> Сказалкину знасит кину нечего ёрничать

Я к тому, что ежели будешь матюгаться - рискуешь получить бан.

petvv (2013-04-25 21:42:00) [19]
Ega23 ©За болобола никогда не прокатывал е сли забыл так работа такая. Сказалкину знасит кину нечего ёрничать

petvv (2013-04-25 21:40:00) [20]
PointBlank

Запарился забыл (Не отмазка)

Солью весь поект, там всё доступно

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »