Скачать: CL | DM;

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

← →
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]

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

---

← →
Piter ©   (2006-01-09 21:17) [13]

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

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

---

← →
Джо ©   (2006-01-09 22:12) [14]

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

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

---

← →
Piter ©   (2006-01-09 23:36) [15]

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

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

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

---

← →
TUser ©   (2006-01-10 11:02) [16]

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

25

---

← →
Kerk ©   (2006-01-10 18:22) [17]

TUser ©   (10.01.06 11:02) [16]
25

Бред

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.024 c