VPF::Запись строк в текстовой документ

USSR

Дата 9.8.2006, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.7.2006

Репутация: нет
Всего: 1

Нужна помощь. Нужна такая функция
Например, я запускаю программу и при нажатии на кнопку или хоткей нужно записать определенную строку в конец определенного текстового файла и, при закрытии программы она из этого текстовика исчезала... хотя я видел програмы которые так делают
Чет у меня ни единой мысли нет как это релиазовать...

_hunter

Дата 9.8.2006, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

в обработчике OnClose удаляй последнюю (записанную) строку

--------------------

Tempora mutantur, et nos mutamur in illis...

Alexeis

Дата 9.8.2006, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(_hunter @ 9.8.2006, 18:22

)

удаляй последнюю (записанную) строку

Скорее надо урезать файл на размер строки. Такая операция допустима.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

AJIeKcEu

Дата 10.8.2006, 05:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0

Если тебе просто надо записывать в конец ТХТ файла, эт делается просто

после открытия файла (в начале программы) тестишь строки на заполнения (через цикл)
а потом у тебя будет в некоторой переменной число , потом делаешь число+1 и записываешь.. получается запись в конец

smile

у меня мысля вот такая.. я такое на РНР делал smile

.. на делфи давно... если найду скину исходник.. smile

Добавлено @ 05:53
или как сказал alexeis1 можно посмотреть число строк... есть такая операция (функция)

kostas

Дата 10.8.2006, 06:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Открываешь любой ман, в котором есть основа работы с файлами smile

вот пример (пусть и старым методом, но здесь его хватит)

Код


var f: textfile;
...
assignfile(f, 'C:\123.txt');
append(f);
writeln('строка');
closefile(f);
...

Yanis

Дата 11.8.2006, 11:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Что то не пойму в чём загвоздка?

Код

var
  sl: TStringList;

const
  FILE_NAME = 'c:\windows\WINNT32.LOG';

{ ... }

procedure TForm1.Button1Click(Sender: TObject);
begin
  sl := TStringList.Create;
  sl.LoadFromFile(FILE_NAME);
  sl.Add('<строка для записи>');

  // если нужно, что бы добавленная строчка присутствовала не только в пями,
  // но и в файле на диске, то
  sl.SaveToFile(FILE_NAME);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // если есть уверенность в том, что последняя строчка это
  // имеено та строчка которую мы добавили, то можно
  // неглядя удалять последнюю
  // иначе сравнивать
  sl.Delete(sl.Count-1);

  // сохраняем изменения
  sl.SaveToFile(FILE_NAME);
  FreeAndNil(sl);
end;

--------------------

*щёлк*

imageman

Дата 11.8.2006, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.9.2004

Репутация: 1
Всего: 1

Если файл очень большой и на твоем компьютере перезапись всего файла ведется недопустимо долго, то (как советовал alexeis) через FileStream открываешь файл, запоминаешь в глобальной переменной размер файла, дописываешь строку.

Как сказал Хунтер, в обработчике OnClose пытаешься поставить размер файла такой, какой был до изменения (через FileStream).

Данный метод должен работать очень быстро и не зависеть от размера файла!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »