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

[sid]

Решил сделать цифровые часы. Нашел в Demos заготовку в виде секундомера в папке Clx\StopWatch. Интересно, что этого эл-та в палитре нет, но он появляется, когда создаешь CLX Application. Кстати, скажите в чем разница между CLX и просто Application? Так вот, поместил этот эл-т на форму, цифорки там будут такие, которые укажешь в Value. Но в этом и проблема, я создал переменную с названием допустим S и в коде пишу Value:= ('S'), а он так и делает, вместо того, чтобы поместить туда переменную, он выводит S. Подскажите пожалуйста, как сделать, чтобы он подставлял переменную?

[zetrix]

Может кавычки убрать?

[Umen]

Какого типа переменная S?
Если целого, то попробуй

Value := IntToStr(S)

CLX, насколько я знаю это кроссплатформенное приложение (используются другие, кроссплатформенные версии основных модулей программы)

//В догонку
//Скорее всего Value это переменная целого типа поэтому правильнее
//или так
//

Value := S

//
//или так, если S - строкового типа

Value := StrToInt(S)

[sid]

Спасибо, сейчас буду пробовать. А как вобще делать часы в Delphi? Я имею ввиду, как брать системное время, а уже полученное значение выводить допустим в Label ? Я пробовал
var
t: SystemTime;
........
GetSystemTime(t);
Caption:= t;
А компилятор говорит, что он не знает, что такое t:SystemTime;

[Prowler]

Гы! Есно не знает, нечего не существующие типы писать. Посмотри справку по типу tdatetime - тама всё написано.

[sid]

Я только начинающий, можно немножко снисхождения? А давайте добавим новую тему "Delphi для самых маленьких" и приглосим туда модераторов с огромным терпением к таким, как я???

Я сейчас сделал таймер, с выводом в label при помощи inc(x). Но вот проблемка: хочется, чтобы время выводилось не 0,1,2... , а 01,02,03...
Сделал '0'+IntToStr(x), но при значении X>9 естественно получается 010. Как это можно обойти?

По поводу ТDateTime, можно поподробнее, мне сейчас справка Delphi мало о чем говорит, Вы напишите, что мне нужно исправить, а я посмотрю Ваш пример, справку Delphi и все пойму.

[Albenous]

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

Я только начинающий, можно немножко снисхождения? А давайте добавим новую тему "Delphi для самых маленьких" и приглосим туда модераторов с огромным терпением к таким, как я???

Котегорически поддерживаю это предложение!!!!!!!!!

хочется, чтобы время выводилось не 0,1,2... , а 01,02,03...

попробуй поработать с форматом вывода. Щас и я заодно попробую.

мне сейчас справка Delphi мало о чем говорит

не беда. потом будет говорить гораздо больше.
Скачай русскую справку делфи где-нибудь в нете. К сожалению, посоветовать справку с programmersclub не могу. Там многого нет. но если хочешь, можешь и ее скачать.

[AVer]

Ставишь на таймер с интервалом в 1 секунду:

Label1.Caption:=FormatDateTime('HH: MM:SS',now);

[Virtson]

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

Но вот проблемка: хочется, чтобы время выводилось не 0,1,2... , а 01,02,03...
Сделал '0'+IntToStr(x), но при значении X>9 естественно получается 010. Как это можно обойти?

if x<10 then s:= '0'+IntToStr(x)
        else  s:= IntToStr(x);

в общем случае (для формирования строк)
рекомендую использовать ф-ию Format.
Пр-р:
Format( '%2d' , [x]);

[sid]

if x<10 then s:= '0'+IntToStr(x)
else s:= IntToStr(x);
Как я сразу не догадался? А про Format я вобще не знаю ничего, надо будет посмотреть потом.
Проблема в том, что я решил использовать для часов не label, а LCDNumber, мне там циферки нравятся, правда я там не нашел, как менять цвет цифер... Так вот в LCDNumber запись типа '0'+IntToStr(x), не прокатит, 0 он не отображает, а все остальное показывает.