Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Ноя

Random слов в Memo

Posted by micher under Delphi

У меня есть 20 слов и программка(самая простая,с кнопкой и мемо). Нужно сделать так,чтобы при нажатии на эту кнопку 1 любое слово из этих 20 выводилось в мемо совершенно рандомно,подскажите как организовать это?

type_Oleg



procedure TForm1.Button1Click(Sender: TObject);

const Slowa:array[0..5]of string =('мой','дядя','самых','честных','правил','когда');

begin

 Memo1.Lines.Add(Slowa[Random(6)]);

end;
initialization

 Randomize;

end.

тема на форуме