| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать таймер из Label [D7, WinXP]
Korvet © (2005-07-25 10:02:00)Нужно что бы через каждую секунду Caption Lebel`a увеличивался на одну цифру.Было 0 стало 1, было 1 стало 2 и т.д.
Джо (2005-08-04 14:32:00) [1]
> [34] anti256 (04.08.05 13:36)
Если этот "интерес" так легко "отбить" - то туда ему и дорога...
Естественный отбор, панимаишь :0)
anti256 (2005-08-04 13:36:00) [2]Да ладно, что вы на человека накинулись? Сами-то какими были по первой? Я, например, когда начинал изучать Delphi, делал такие ошибки и задавал такие вопросы, что сейчас даже вспоминать стыдно. А так вы ему только весь интерес отобъете.
Duk_ (2005-07-27 23:40:00) [3]Тут ему напишут и прийдется компилировать, а так уже все готово :-]
Джо (2005-07-27 23:23:00) [4]
> [31] Duk_ (27.07.05 23:14)
Именно. А не заказывать курсовой за деньги :)
Duk_ (2005-07-27 23:14:00) [5]Мне кажется если человек не знает элементарщины, то стоило бы задуматься над тем чтоб купить какую-то толковую книгу, а не ждать готового решения. Так как на этих основах строится все дальнейшее восприятие и понимание предмета.
Джо (2005-07-27 23:09:00) [6]
> [29] Duk_ (27.07.05 23:05)
Зачем подталкивать человека совершать неэтичный поступок? Курсовой НУЖНО писать самому.
Duk_ (2005-07-27 23:05:00) [7]Если тебе нужно сделать курсовую или что-то в этом роде (так как на серьезную вещь это не тянет) то найди людей которые этим занимаются. Дай возможность заработать другим и облегчи себе жизнь.
Vasian (2005-07-27 17:31:00) [8]
> Korvet
> А вот не можите ещё подсказать почему этот код не работает.
> if label1.Caption=Label2.Caption then
> label3.Caption:='ура';
А не пробовал, перед приведенным кодом сначала задать значения
Caption' ов лейблов
msguns (2005-07-25 11:21:00) [9]>Digitman © (25.07.05 11:16) [26]
>значит в дизайн-тайм в Инспекторе объектов очисть (сделай пустым) значение св-ва Caption компонента Label3
И после каждого сравнения Application.Terminate и запускай снова
;))
Digitman (2005-07-25 11:16:00) [10]
> Korvet (25.07.05 11:10) [23]
> точку с запятой я там не ставил
значит в дизайн-тайм в Инспекторе объектов очисть (сделай пустым) значение св-ва Caption компонента Label3
Lexer (2005-07-25 11:13:00) [11]> Плохиш © (25.07.05 11:12) [24]
> тоды, дадим Lexer значёк телепата ;-)
спасиб, такого у меня еще небыло :)
Плохиш (2005-07-25 11:12:00) [12]тоды, дадим Lexer значёк телепата ;-)
Korvet (2005-07-25 11:10:00) [13]нет точку с запятой я там не ставил
Плохиш (2005-07-25 11:04:00) [14]
> Lexer © (25.07.05 11:01) [18]
:-) Это тоже ещё один вариант
msguns (2005-07-25 11:04:00) [15]>Korvet (25.07.05 11:00) [16]
>Блин, не сказал что не так.В 3-ем лабеле всегда пишится ура, даже тогда когда тексты разные
Боюсь, учебник тут не поможет. С логикой неладушки ;)))
Плохиш (2005-07-25 11:03:00) [16]
> Korvet (25.07.05 11:00) [16]
:-) Почему-то я так и подумал.
Значит тексты одинаковые или ищи, где между thenи label3точку с запятой поставил.
Digitman (2005-07-25 11:03:00) [17]
> Korvet (25.07.05 11:00) [16]
значит после then у тебя стоит точка с запятой
Lexer (2005-07-25 11:01:00) [18]
if label1.Caption=Label2.Caption then
label3.Caption:='ура' else label3.Caption:='Не ура';
Korvet (2005-07-25 11:01:00) [19]Я скачаю, но не сегодня.
Korvet (2005-07-25 11:00:00) [20]Блин, не сказал что не так.В 3-ем лабеле всегда пишится ура, даже тогда когда тексты разные
| |
Страницы: 