Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.11.2014, 22:44   #1
locmes
 
Регистрация: 28.11.2014
Сообщений: 5
Радость Random в Мемо

Добрый вечер. Столкнулся с такой проблемой..
У меня есть 20 слов и программка(самая простая,с кнопкой и мемо)
Нужно сделать так,чтобы при нажатии на эту кнопку 1 любое слово из этих 20 выводилось в мемо совершенно рандомно,подскажите как организовать это? и если можно простыми словами,ибо я только начал учиться программировать
locmes вне форума Ответить с цитированием
Старый 28.11.2014, 22:48   #2
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Слова эти где находятся?
Iron Monk вне форума Ответить с цитированием
Старый 28.11.2014, 22:51   #3
locmes
 
Регистрация: 28.11.2014
Сообщений: 5
По умолчанию

в памяти)
locmes вне форума Ответить с цитированием
Старый 28.11.2014, 22:59   #4
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Цитата:
Сообщение от locmes Посмотреть сообщение
в памяти)
Код:
randomize;
Memo1.Lines.Add(список_в_памяти.Strings[random(20)]);
Iron Monk вне форума Ответить с цитированием
Старый 28.11.2014, 23:01   #5
locmes
 
Регистрация: 28.11.2014
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Iron Monk Посмотреть сообщение
Код:
randomize;
Memo1.Lines.Add(список_в_памяти.Strings[random(20)]);
а если добавить в Lines в строчку,будет грамотно? или как сделать,чтобы было правильней? верней куда список вставить?
locmes вне форума Ответить с цитированием
Старый 28.11.2014, 23:04   #6
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Цитата:
Сообщение от locmes Посмотреть сообщение
а если добавить в Lines в строчку,будет грамотно? или как сделать,чтобы было правильней? верней куда список вставить?
Ручками писать? Из файла загрузить?
Iron Monk вне форума Ответить с цитированием
Старый 28.11.2014, 23:06   #7
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,504
По умолчанию

Опередили.. Ну, ладно, более полный код. Только неохота 20 слов, сделал для 6-ти.

Код:
procedure TForm1.Button1Click(Sender: TObject);
const Slowa:array[0..5]of string =('мой','дядя','самых','честных','правил','когда');
begin
 Memo1.Lines.Add(Slowa[Random(6)]);
end;

initialization
 Randomize;
end.
Только здесь слова не " в памяти " хранятся, а в самом коде. Можно всместо константного массива из файла загружать.

Последний раз редактировалось type_Oleg; 28.11.2014 в 23:09.
type_Oleg вне форума Ответить с цитированием
Старый 28.11.2014, 23:10   #8
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от locmes Посмотреть сообщение
а если добавить в Lines в строчку,будет грамотно? или как сделать,чтобы было правильней? верней куда список вставить?
Ещё раз. Вы как задаёте в своей программе слова?
В виде массива, в виде списка или вообще, из файла/ini/реестра читаете?
Вот, например, если слова добавляются в список прямо в коде программы, это может выглядеть так:
Код:
ts := TStringList.Create;
ts.Append('Слово1');
ts.Append('Слово2');
ts.Append('Слово3');
ts.Append('Слово4');
ts.Append('ЕщёОдноСлово');
ts - опишите как поле формы или как глобальную переменную.

Ещё вопросы есть?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 28.11.2014, 23:11   #9
locmes
 
Регистрация: 28.11.2014
Сообщений: 5
По умолчанию

Все!!получилось!!спасибо огромное)
locmes вне форума Ответить с цитированием
Старый 28.11.2014, 23:12   #10
locmes
 
Регистрация: 28.11.2014
Сообщений: 5
По умолчанию

ага... понятно,до меня не могло дойти где хранятся)теперь ясно! благодарю!
locmes вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отображение данных БД типа мемо в поле мемо brutalis БД в Delphi 5 13.05.2012 18:14
Random glebast Помощь студентам 4 26.01.2012 19:20
Как из простого мемо записать в поле БД Access в поле тоже типа мемо с сохранением всех абзацев пробелов Speeker БД в Delphi 2 28.11.2011 16:22
random Fanyuus Помощь студентам 7 07.05.2011 15:43
Как скопировать текст из мемо одной формы в мемо другой CraZZy RabbIt Общие вопросы Delphi 4 27.02.2009 00:01