| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сгенерировать случайнй знак (*,/,+,-) [D7, XP]

Страницы:   < 1 2 >

Loonar ©   (2007-05-21 13:16:00) 

Как сгенерировать случайный знак (*,/,+,-), исходя из отмеченнх пользователем флажков (четыре CheckBox'а каждый для своего знака)
Допустим я отметил CheckBox1(Сложение) и CheckBox2(умножение), Дельфи должен сгенерировать случайный знак или сложение или умножение.
Заранее спасибо за помощь.

---

Knight   (2007-05-21 14:46:00) [21]

Лучше использовать два таймера... первый по рендому выбирает знак.. а второй по рендому останавливает первый :)

---

{RASkov}   (2007-05-21 13:55:00) [22]

> [3] Loonar ©   (21.05.07 13:53)

> ShowMessage(Chars[Random(Length(Chars)+1)]);

ShowMessage(Chars[ 1+Random(Length(Chars))]);
Индекс символов в строке начинается с 1

---

Loonar   (2007-05-21 13:53:00) [23]

Спасибо большое, очень помогло, ещё раз спасибо.

---

clickmaker   (2007-05-21 13:22:00) [24]

Random()

---

turbouser   (2007-05-21 13:22:00) [25]

"Влоб" можно так:
Randomize;
...
var Chars:string;
begin
 if CheckBox1.Checked then Chars:='*';
 if CheckBox2.Checked then Chars:=Chars+'/';
 if CheckBox3.Checked then Chars:=Chars+'+';
 if CheckBox4.Checked then Chars:=Chars+'-';
 ShowMessage(Chars[Random(Length(Chars)+1)]);
end;

---

Страницы:   < 1 2 >

Наверх