Время в Файлы! Опции

[compiler]

Добрый день!
Я пишу программку, которая должна была бы вести учетную запись времени провождения пользователя за время работы данной программы.
То есть в автозапуске есть программа x , которая должна готовить отчеты по пользователю в файле, например в файле 20070929(дата) будет сказано
07:00-16:25
16:30-16:45
а это значит что Петров сидел целый день перед компом, а родителям говорит что и не подходил к нему
Сначала я хотел создать нетипизированный файл и туда кидать время, но у меня не получилось работать с буфером и в файл пролазило много лишнего кроме времени(файл time0.pp), позже было еще много попыток вследствии которых уже и время не пишется… и сейчас есть код где создается типизированный файл (of TDateTime) и туда(time1.pp) пишется какой-то бред…

Помогите пожалуйста.

[volvo]

Ну, допустим, функция Date() реализуется гораздо проще:

function Date():string;
begin
  result := Format('%.4d%.2d%.2d',
    [YearOf(Now()), MonthOf(Now()), DayOf(Now())]);
end;

Теперь о программе: я не совсем понял, почему:

  if ((Time - DateOf(now)) <> SleepTime) then begin  // если машину выключали 

? Откуда такой вывод, что если разность последней записанной даты и текущей НЕ равна 2 (2 чего? дня? месяца?), то машину выключали? Ну, и как следствие, все нижеследующее тоже неясно... Ты хочешь, чтобы у тебя каждый какой-то промежуток времени в файл что-то записывалось, или одноразово? Другими словами, эта программа будет постоянно висеть и что-то делать или она запускается, отрабатывает и до следующей перезагрузки не запускается?

Сообщение отредактировано: volvo - 29.09.2007 20:17