VPF::Запись в файл при перезагрузке

Guedda

Дата 28.1.2006, 12:05 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Делаю так:

Код


var
  f : TextFile;
const
  r = 'C:\My.txt';
...

procedure TForm1.FormCreate(Sender : TObject);
begin
  if not FileExists(r) then begin
    AssignFile(f, r);
    Rewrite(f);
    CloseFile(f);
  end;
  AssignFile(f, r);
  Append(f);
  Writeln(f, 'Создано: ' + TimeToStr(Time));
  CloseFile(f);
end;

procedure TForm1.FormDestroy(Sender : TObject);
begin
  if not FileExists(r) then begin
    AssignFile(f, r);
    Rewrite(f);
    CloseFile(f);
  end;
  AssignFile(f, r);
  Append(f);
  Writeln(f, 'Закрыто: ' + TimeToStr(Time));
  CloseFile(f);
end;

Программа работает, при закрытии программы в файл все записует... А вот при перезагрузке (не жесткой), ничего не записует...

Помогите, как это исправить.

Заранее благодарен.

Это сообщение отредактировал(а) Guedda - 28.1.2006, 12:06

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

Ll 2

Quadr0

Дата 28.1.2006, 14:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 09:55

Guedda

Дата 28.1.2006, 15:14 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Сенкс... Работает...

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

Ll 2

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