 |
|
Модераторы: volvo877, Snowy, MetalFan |
 
|
|
Изменение типов данных, Char to Int 
| falcon39 |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 103 Регистрация: 21.6.2004 Репутация: нет Всего: 0 |
Нужно ввести число от 2 до 12
использую код
как введеное число сделать целым (Integer) --------------------
|
|||
|
||||
Загрузка ...
| volvo877 |
|
|||
 Эксперт Профиль Группа: Комодератор Сообщений: 2073 Регистрация: 15.11.2004 Репутация: 2 Всего: 116 |
А как ты хочешь "12" например поместить в один Char? От 0 до 9 - пожалуйста, 10 и больше - не пойдет... Надо строку вводить...
А потом (если через строку) - то процедура Val тебе поможет, если числа 0 .. 9 и пользуешься ch := ReadKey , то просто num := ord(ch) - 48; |
|||
|
||||
| Snowy |
|
|||
 Эксперт Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: нет Всего: 484 |
Только через ReadKey ты две цифры не наберешь. Добавлено @ 16:07 Не успел  |
|||
|
||||
| falcon39 |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 103 Регистрация: 21.6.2004 Репутация: нет Всего: 0 |
Это то я понимаю проблема в переводе типов данных была СПАСИБО Добавлено @ 16:49 А как обратно из Integer в String. --------------------
|
|||
|
||||
| Snowy |
|
|||
|
Эксперт Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: нет Всего: 484 |
chr(x + 48);
|
|||
|
||||
| karataev |
|
|||
 Шустрый Профиль Группа: Участник Сообщений: 56 Регистрация: 28.1.2006 Где: Россия, Нижний Но вгород Репутация: нет Всего: нет |
Я делаю немного по другому, чтобы числа не запоминать:
ord(ch)-ord('0') и обратно chr(ord('0')+x) Лично мне так легче  |
|||
|
||||
|
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
[ Время генерации скрипта: 0.0505 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |