подсчет времени (в секундах) и запись в файл (дельфи)

[as_sati]

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

вот сам код

procedure TForm1.FormCreate(Sender: TObject);
begin
   t := Now;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Z : Extended;
begin
  Z := (Now - t)/(24*60*60);
  AssignFile(R_file, 'c:\Check.txt');
  ReWrite(R_file);
  Write(R_file, Z);
//  WriteLn(R_file);
  CloseFile(R_file);
end;

решила протестировать, что я начудила..открыла прогу и закрыла через 1 секунду. открываю файл, а результат какой-то очень странный....

7.69019522892820E-0009

зы: что за трабла???

[BDA]

TDateTime
Прочтите, что из себя представляет время.

UPD

Z := (Now - t) * (24*60*60);

[Sciv]

А если так?

Write(R_file, Z:4:2);

У Вас переменная Z типа extended - если ее не ограничивать на выводе, то значение и выведется в экспоненциальной форме (что Вы и имеете).

В данном случае запись z:4:2 определяет, что под число выделено 4 знакоместа, из них 2 - после запятой. Причем, если до запятой у числа больше, чем (4-2) символа, то она все-равно выведет их все, то есть пример:

z:=34.4314645;
WriteLn(z:4:2);

на выходе получим 34.43

и в случае:

z:=1134.4314645;
WriteLn(z:4:2);

На выходе будет 1134.43


UPDATE. И прислушайтесь к совету BDA

[as_sati]

классно)) теперь у меня сколько бы времени не прошло показывает 0.00 !!

Z := (Now - t)/(24*60*60); - здесь я правильно в секунды перевожу?

[as_sati]

а что не так? что-то я ваш намек не понимаю

[Sciv]

а что не так? что-то я ваш намек не понимаю

BDA дал вам ссылку, где написано, что такое Время в делфи и как с ним работать.
Продублирую:

http://www.delphibasics.ru/TDateTime.php

[BDA]

здесь я правильно в секунды перевожу?

После нескольких переходов по ссылкам пришел к формуле (Now - t) * (24*60*60).

[as_sati]

точняк, ступила :DD