Запись в файл

[В_И_К_Т_О_Р]

Подскажите как при запуске программы записать в файл текущее время и дату и каждый последующий запуск добавлять в этот же файл новую дату и время.
Спасибо преогромаднейшее.

[AlDelta]

http://delphibasics.ru/Now.php
Функция Now возвращает текущую дату и время для местной временной зоны.

Пример:

var
  today : TDateTime;
begin
  today := Now;
  ShowMessage('День = '+DateToStr(today));
  ShowMessage('Время = '+TimeToStr(today));
end;

Записывать в файл можно через Memo.
Работа с файлами расмотрена на форуме в достаточном количестве, пользуйтесь поиском...

[В_И_К_Т_О_Р]

Спасибо за консультацию. Дело в том, что я только начал заниматься программированием и самому, даже с помощью самоучителя разобраться не просто. Как записать текст в файл я уже знаю. А вот с записью текущей даты и времени в файл автоматически, при очередном включении компьютера пока не получается

[mihali4]

Подскажите как при запуске программы записать в файл текущее время и дату

с записью текущей даты и времени в файл автоматически, при очередном включении компьютера пока не получается

Разницу ощущаете?
Сформулируйте правильно - что же вам все-таки нужно?

[AlDelta]

Вы определитесь, что Вам нужно:

Подскажите как при запуске программы записать в файл текущее время и дату и каждый последующий запуск добавлять в этот же файл новую дату и время.

Если да, то - у формы есть событие OnCreate, в обработчике этого события и записываите дату в файл.

или

А вот с записью текущей даты и времени в файл автоматически, при очередном включении компьютера пока не получается

Если да, то - программа должна уметь добавлять себя в автозапуск, а потом тоже, что и в первом случае...

P.S.: Ups, проморгал пост mihali4'a

[В_И_К_Т_О_Р]

Мне нужно, чтобы каждое включение и выключение компьютера фиксировалось в файле с записью времени и даты.

Ну на крайний случай, контролировать хотя бы только включения

[AlDelta]

Тогда сюда:
http://programmersforum.ru/showthread.php?t=13468

[В_И_К_Т_О_Р]

Ничего не могу сделать. Через Memo понятно как сохранять текст, а как ввести в Memo время и дату не знаю.

[AlDelta]

var   
  today : TDateTime;   
begin   
  today := Now;   
  Memo1.Lines.Add('День = '+DateToStr(today)+'  Время = '+TimeToStr(today));    
end

;

Есть такая книга, называется - 100 компонентов Delphi А. Я. Архангельский. Была до недавних пор доступной для скачивания в клубе, но до не давних пор. Поэтому поищи в сети, будет полезной.

[В_И_К_Т_О_Р]

Спасибо большое!