 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Имитация печатной машинки.... 
| Sniper |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 511 Регистрация: 8.5.2002 Репутация: нет Всего: 2 |
значиться сотворил я прожку на паскале, которая выводит буквы по-порядку.... :-))
uses crt; var i : integer; s : string; ch : char; begin clrscr; s := 'abcdef'; for i := 1 to 6 do begin ch := s[i]; Write(ch); delay(9000); end; readLn; end. И попытался перевести её на Delphi... поставил как водится таймер... поставил интервал 50 и воткнул сей код в обработчик таймера(разумеется с небольшими изменениями)... Что не правильно? Может я седня пива много выпил... :-)) -------------------- "Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный". Кен Томпсон, создатель Unix |
|||
|
||||
Загрузка ...
| VoL |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 24 Регистрация: 26.3.2002 Репутация: нет Всего: нет |
А в чем собственно проблема? ... у Timer интервал короткий, 50 - это мгновение, надо хотя бы 500... Напиши свой новый код с таймера!!!
|
|||
|
||||
| Punk |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 28 Регистрация: 25.3.2002 Где: Абакан Репутация: нет Всего: нет |
таймер будет тормозить основную прогу
смотри ответ на мой вопрос по созданию простого потока |
|||
|
||||
| neutrino |
|
|||
 Gothic soul Профиль Группа: Модератор Сообщений: 3041 Регистрация: 25.3.2002 Где: Верхняя Галилея, Кармиэль Репутация: нет Всего: 62 |
Почему будет тормозить таймер? Я ставил таймер на довольно трудно-вычислимые процессы и работало нормально.
2Sniper: Приведи пожалуйста код, а то больно будет трудно ответить перепил ты пива или нет. 
-------------------- The truth comes from within ... Покойся с миром, Vit |
|||
|
||||
| Mikel |
|
|||
 Опытный Профиль Группа: Участник Клуба Сообщений: 882 Регистрация: 30.3.2002 Где: Саратов Репутация: 1 Всего: 2 |
И все. Переменные должны быть объявлены не в самой процедуре. -------------------- ...so remember, it's better to burn out than to fade away |
|||
|
||||
| VoL |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 24 Регистрация: 26.3.2002 Репутация: нет Всего: нет |
Добавь переменную: ch:char;
Вот так можно: {onTimer} Begin ch:=s[i]; ShowMessage(PChar(ch)); inc(i); if i>Length(s) then timer1.Enabled:=False; end; |
|||
|
||||
| VoL |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 24 Регистрация: 26.3.2002 Репутация: нет Всего: нет |
P.S. Всегда пиши конкрено, что и как!
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0496 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |