[KORSA_MC]

Вот такая проблема стоял delphi 7(прога работала норм,но по некоторым причинам пришлось поставить хе3 ,поставил 2012 XE3 и программа стала выдавать не правильное время все перерыл ничего не нашёл может подскажите.... вот код :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function TimeWorks: String; var   Hours,   Minutes,   Seconds,   MSeconds,   TheLength: Integer; begin   Hours:=TheLength div 3600000;   Minutes:=(TheLength mod 3600000) div 60000;   Seconds:=((TheLength mod 3600000) mod 60000)div 1000;   MSeconds:=((TheLength mod 3600000) mod 60000)mod 1000;   result := IntToStr(Hours)+':'+IntToStr(Minutes)+':'+IntToStr(Seconds);   end; begin   Label1.Caption := 'Продолжительность работы компьютера : '+TimeWorks;   end;

Админ: Пользуемся тегами дял оформления кода!

[angvelem]

delphi 7(прога работала норм...
...поставил 2012 XE3 и программа стала выдавать не правильное...

И в Дельфи 7 программа не могла работать правмльно

Код:

1 2 3

...   Hours := TheLength div 3600000; ...

TheLength - локальная переменная и без инициализации в ней находится "мусор". И этот "мусор" вы делите, получая в результате такой же "мусор".

[Alegun]

Сообщение от angvelem

И в Дельфи 7 программа не могла работать правмльно...

Точно подмечено, так не могло работать, но походу в коде просто пропущена первая строчка после begin

Код:

1	TheLength := GetTickCount;

[KORSA_MC]

Спасибо помогло )))

[KORSA_MC]

Вот у меня ещё такой вопрос программа показывает мне время работы ПК с того момента как я скомпилировал её и даже выключая компьютер и сново включая время не сбрасываеться как быть?

[M.A.D.M.A.N.]

Продолжительность работы компа можно получить ф-ей GetTickCount (точнее работы системы).

[Alegun]

Сообщение от KORSA_MC

...программа показывает мне время работы ПК с того момента как я скомпилировал её и даже выключая компьютер и сново включая время не сбрасываеться как быть?

Код:

1	TheLength := GetCurrentTime; // время в миллисекундах, прошедшее с момента последнего запуска системы