Как сделать таймер из Label

← →
Korvet (2005-07-25 10:02) [0]

Нужно что бы через каждую секунду Caption Lebel`a увеличивался на одну цифру.Было 0 стало 1, было 1 стало 2 и т.д.

← →
Алхимик © (2005-07-25 10:04) [1]

TTimer

← →
Korvet (2005-07-25 10:07) [2]

Ну что в таймере писать нужно это я и не сомнивался, а вот что написать этого я уже не знаю!

← →
Алхимик © (2005-07-25 10:09) [3]

Lebel.Tag := Lebel.Tag + 1;
Lebel.caption := IntToStr(Lebel.Tag);

← →
имя (2005-07-25 10:11) [4]

Удалено модератором

← →
Korvet (2005-07-25 10:19) [5]

Спасибо тебе Алхимик!

← →
msguns © (2005-07-25 10:26) [6]

>Алхимик © (25.07.05 10:09) [3]

+ Label.invalidate

← →
Korvet (2005-07-25 10:32) [7]

А вот не можите ещё подсказать почему этот код не работает.
if label1.Caption=Label2.Caption then
label3.Caption:="ура";
P.S.Только не смейтесь я просто в Delphi новичок и только только его начал изучать

← →
Digitman © (2005-07-25 10:35) [8]

> почему этот код не работает

что значит "не работает" ?

← →
Алхимик © (2005-07-25 10:37) [9]

> [7] Korvet (25.07.05 10:32)

А что ожидаешь от кода?
Программы - они самые злые враги программиста, делают не то что задумано, а то что написано.

← →
Korvet (2005-07-25 10:50) [10]

Ну мне нужно.Если текст из лабела равен тексту из второга лабела то в з лабеле былв надпись !ура!

← →
Lexer © (2005-07-25 10:53) [11]

Korvet, а как ты думаешь, почему в третьем Label не пишет "Ура"?

← →
Digitman © (2005-07-25 10:53) [12]

> Если текст из лабела равен тексту из второга лабела

значит "текст из лабела" не равен "тексту из второга лабела"

← →
alex_*** (2005-07-25 10:56) [13]

либо обновление лабела не происходит

← →
msguns © (2005-07-25 10:57) [14]

Не обязательно. 3-й лабел может просто не перерисоваться

← →
Алхимик © (2005-07-25 10:59) [15]

Автору:
Скачай какой нить учебник и прочитай - жить станет лучше и веселее.

← →
Korvet (2005-07-25 11:00) [16]

Блин, не сказал что не так.В 3-ем лабеле всегда пишится ура, даже тогда когда тексты разные

← →
Korvet (2005-07-25 11:01) [17]

Я скачаю, но не сегодня.

← →
Lexer © (2005-07-25 11:01) [18]

if label1.Caption=Label2.Caption then label3.Caption:="ура" else label3.Caption:="Не ура";

← →
Digitman © (2005-07-25 11:03) [19]

> Korvet (25.07.05 11:00) [16]

значит после then у тебя стоит точка с запятой

← →
Плохиш © (2005-07-25 11:03) [20]

> Korvet (25.07.05 11:00) [16]

:-) Почему-то я так и подумал.

Значит тексты одинаковые или ищи, где между then и label3 точку с запятой поставил.

← →
msguns © (2005-07-25 11:04) [21]

>Korvet (25.07.05 11:00) [16]
>Блин, не сказал что не так.В 3-ем лабеле всегда пишится ура, даже тогда когда тексты разные

Боюсь, учебник тут не поможет. С логикой неладушки ;)))

← →
Плохиш © (2005-07-25 11:04) [22]

> Lexer © (25.07.05 11:01) [18]

:-) Это тоже ещё один вариант

← →
Korvet (2005-07-25 11:10) [23]

нет точку с запятой я там не ставил

← →
Плохиш © (2005-07-25 11:12) [24]

тоды, дадим Lexer значёк телепата ;-)

> Korvet (25.07.05 11:10) [23]

> точку с запятой я там не ставил

значит в дизайн-тайм в Инспекторе объектов очисть (сделай пустым) значение св-ва Caption компонента Label3

>Digitman © (25.07.05 11:16) [26]
>значит в дизайн-тайм в Инспекторе объектов очисть (сделай пустым) значение св-ва Caption компонента Label3

И после каждого сравнения Application.Terminate и запускай снова
;))

> Korvet

> А вот не можите ещё подсказать почему этот код не работает.
> if label1.Caption=Label2.Caption then
> label3.Caption:="ура";

А не пробовал, перед приведенным кодом сначала задать значения
Caption" ов лейблов

← →
Duk_ (2005-07-27 23:05) [29]

Если тебе нужно сделать курсовую или что-то в этом роде (так как на серьезную вещь это не тянет) то найди людей которые этим занимаются. Дай возможность заработать другим и облегчи себе жизнь.

> [29] Duk_ (27.07.05 23:05)

Зачем подталкивать человека совершать неэтичный поступок? Курсовой НУЖНО писать самому.

← →
Duk_ (2005-07-27 23:14) [31]

Мне кажется если человек не знает элементарщины, то стоило бы задуматься над тем чтоб купить какую-то толковую книгу, а не ждать готового решения. Так как на этих основах строится все дальнейшее восприятие и понимание предмета.

> [31] Duk_ (27.07.05 23:14)

Именно. А не заказывать курсовой за деньги :)

← →
Duk_ (2005-07-27 23:40) [33]

Тут ему напишут и прийдется компилировать, а так уже все готово :-]

← →
anti256 (2005-08-04 13:36) [34]

Да ладно, что вы на человека накинулись? Сами-то какими были по первой? Я, например, когда начинал изучать Delphi, делал такие ошибки и задавал такие вопросы, что сейчас даже вспоминать стыдно. А так вы ему только весь интерес отобъете.

> [34] anti256 (04.08.05 13:36)

Если этот "интерес" так легко "отбить" - то туда ему и дорога...
Естественный отбор, панимаишь :0)

Как сделать таймер из Label Найти похожие ветки