Рандомизатор

← →
Pazitron_Brain © (2006-01-09 20:01) [0]

Как сделать, чтобы по нажатию на буттон в лабеле выводилась 1 случайная буква алфавита?

← →
Kerk © (2006-01-09 20:18) [1]

Label1.Caption := Char(Random(26)+Ord("a"));

← →
Pazitron_Brain © (2006-01-09 20:21) [2]

Kerk © (09.01.06 20:18) [1]
Спасибо.

← →
Pazitron_Brain © (2006-01-09 20:23) [3]

Kerk © (09.01.06 20:18) [1]
А как с русским алфавитом?

← →
Kerk © (2006-01-09 20:27) [4]

Наверно
Label1.Caption := Char(Random(32)+Ord("а"));

← →
Pazitron_Brain © (2006-01-09 20:29) [5]

А как Делфи определяет, что если 32, то русский, а если 26, то английский?

← →
Igorek © (2006-01-09 20:37) [6]

В данном случае никак она не определяет. Это делает Керк. :)

← →
Piter © (2006-01-09 20:46) [7]

Pazitron_Brain © (09.01.06 20:29) [5]
А как Делфи определяет, что если 32, то русский, а если 26, то английский?

в первом примере Kerk написал буквы "a" английскую ("эй"), а во втором случае "а" русскую. Протсо они отоображаются одинаково и ты не видишь разницы.

← →
Piter © (2006-01-09 20:47) [8]

Piter © (09.01.06 20:46) [7]
в первом примере Kerk написал буквы "a" английскую ("эй"), а во втором случае "а" русскую

то есть, должно быть так. А что на самом деле там Kerk написал - я не знаю, а проверять влом :)
В принципе, мог сделать подлость и если ты вставишь это прямо в проект - не заработает :)

← →
Gero © (2006-01-09 20:50) [9]

> Piter © (09.01.06 20:47)

Не трать время, бесполезно.

← →
Igorek © (2006-01-09 21:01) [10]

> Gero © (09.01.06 20:50) [9]

Отнюдь не зря. Спокойно и адекватно ответить на [5] - совсем нетривиальная задача. Попробуешь? :)

← →
Igorek © (2006-01-09 21:03) [11]

> Piter © (09.01.06 20:46) [7]
> то есть, должно быть так. А что на самом деле там Kerk написал
> - я не знаю, а проверять влом :)

Переключи на кодировку без кирилицы.
--
Учи вас, учи - одни двойки. :))

← →
Anatoly Podgoretsky © (2006-01-09 21:09) [12]

Использовать строковую константу - набор символов.

Igorek © (09.01.06 21:03) [11]
Переключи на кодировку без кирилицы

а у меня клиент форума, там нету переключения на ненужную кодировку.

> [13] Piter © (09.01.06 21:17)
> а у меня клиент форума, там нету переключения на ненужную
> кодировку.

Это антиреклама клиента? ;)

Джо © (09.01.06 22:12) [14]
Это антиреклама клиента? ;)

какая же это антиреклама...

Piter © (09.01.06 21:17) [13]
там нету переключения на ненужную кодировку

> Label1.Caption := Char(Random(26)+Ord("a"));

25

Рандомизатор Найти похожие ветки