![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
нужна программа которая из 30-40 слов будет рандомно выбирать 1-3 слова из словаря и выводить на табло сделайте пожалуйста
|
|
#2
|
||||
|
||||
|
Что успел сам сделать?
|
|
#3
|
|||
|
|||
|
Цитата:
|
|
#4
|
|||
|
|||
|
слова пишешь сам
сам ничего не успел сделать как так еще не докачалось делфи |
|
#5
|
||||
|
||||
|
В Memo1 - пишиш сколько хочеш строк.
При нажатии на Button1 пишем код: Код:
procedure TForm1.Button1Click(Sender: TObject); begin Randomize; Memo2.Lines.Add(Memo1.Lines.Strings[Random(Memo1.Lines.Count)]); end; |
|
#6
|
||||
|
||||
|
Ну тогда уж, сделать проверку на повтор выбранных слов. И каждый раз при добавлении, очищать предыдущий выбор.
|