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