|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.10.2007, 15:11 | #1 |
Пользователь
Регистрация: 12.07.2007
Сообщений: 60
|
Рандом символов
Подскажите пожалуйста как осуществить выбор символа латинского алфавита, и так же регистр выбранного символа. Спасибо.
|
25.10.2007, 15:28 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Var c:char
c:=char(random(255)+31) если не ошибаюсь
I'm learning to live...
|
25.10.2007, 15:33 | #3 |
Пользователь
Регистрация: 12.07.2007
Сообщений: 60
|
Он генерирует все символы, мне нужно только вехний и нижний регистр латанских букв.
|
25.10.2007, 15:37 | #4 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
ShowMessage('A=>'+IntToStr(Ord('A') ));
ShowMessage('Z=>'+IntToStr(Ord('Z') )); ShowMessage('a=>'+IntToStr(Ord('a') )); ShowMessage('z=>'+IntToStr(Ord('z') )); Дальше сами (тихо надеюсь)... |
25.10.2007, 15:43 | #5 |
Пользователь
Регистрация: 12.07.2007
Сообщений: 60
|
|
25.10.2007, 15:59 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Пробуй так:
if random(2)=0 then caption:=chr(random(25)+65) else caption:=chr(random(25)+97);
I'm learning to live...
|
25.10.2007, 16:07 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Любой символ ПК можно определить по его коду.
Коды нижнего регистра латинских букв от 97 до 122. Верхний ркгистр - от 65 до 90. Выделить нужные символы откуда-нибудь можно используя множества. Почитайте какую-нибудь книжку. |
25.10.2007, 16:09 | #8 |
Пользователь
Регистрация: 12.07.2007
Сообщений: 60
|
puporev, спасибо за четкое разъеснение.
|
25.10.2007, 16:50 | #9 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нерандомный рандом | woo | Общие вопросы Delphi | 3 | 05.07.2008 21:12 |
Графика, время, рандом (на С\С++) | 1122 | Помощь студентам | 5 | 25.05.2008 20:44 |
рандом | benjaminfran | Помощь студентам | 3 | 14.02.2008 23:53 |
Массивы символов с++ | chagin_yav | Помощь студентам | 2 | 04.01.2008 19:14 |
Регистр символов | Никки | Общие вопросы Delphi | 1 | 22.12.2007 20:14 |