Не могу сделать цифровые часы

[sid]

Ладно, буду использовать сист. время. Кстати спасибо AVer за подсказку и вобще всем спасибо!

[Umen]

Можешь ещё так попробовать:

бросаешь на форму Label, Timer
в обработчике OnTimer пишешь:

  Label1.Caption := DateTimeToStr(GetTime)

[Virtson]

оптимальный интервал для такого таймера -
500 мс (полсекунды) ..

[sid]

А можно получать ценные советы с пояснениями? DateTimeToStr - это дату/время перевести в строку. Это уже готовая ф-ия Delphi? GetTime - получить время. Вопрос: когда я это написал, время он показывает правильно, а дату нет (30.12.1899) откуда он это взял? Если я напишу TimeToStr(GetTime) - он выведет просто время. А если я напишу DateToStr(GetDate) - то компилятор скажет, что он не знает что такое GetDate. Почему так??? Хочется полностью понимать, что я пишу, а так можно вобще быть программистом зная только сочитания клавиш Ctrl+C и Ctrl+V.

[AVer]

GetDate - Такой функции попросту не существует. Чтобы получить дату нужно в DateToStr передать указатель на время. Звучит мудрено, но на самом деле все просто. Чтобы получить текущую дату напиши DateToStr(Now);

[merax]

Уважаемые, а разве так Label1.Caption := TimeToStr (Time) не проще! А дата Label1.Caption := DateToStr (Date)

[Virtson]

главное, чтобы новичок понимал, что он делает..

а мне хватает Now;

[sid]

Привет народ! Ну не дает мне покоя, сделать независимые от системного времени часы! Стал мудрить с inc(x) и операторами if, then и т.д. Такой код получился, Вы бы видели!
Подсматрел чужой код, немножко изменил...

public
{ Public declarations }
Time: Extended;
---------------------
Label1.Caption:= FormatDateTime('hh:mm:ss',Time);

Я так понял, что есть сист. операт. Now, а сдесь придумываем свой опер. и объявляем его в public и получилось! Вывелось 00:00:00. Одна строчка, вместо кучи if, then... Но как теперь сделать, чтобы это все "затикало" ???

[Virtson]

ничего мы не придумываем.
Time: Extended; - свойство формы / переменая величина типа Extended

во 2 случае
Time - функция, не оператор, и не переменная

[sid]

ничего мы не придумываем
Ну я всмысле того, что вмесир Time в данном случае я могу поставить что угодно. Ну так можно это заставить тикать? Допустим, как нибудь обратиться к hh:mm:ss ?