![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 19.10.2007
Сообщений: 168
|
![]()
подскажите, как со списка имён которые записаны в обект мемо1 случайным порядком выбрать половину из них и записат в мемо2, остальные записать в мемо3.
зарание благодарен |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
В цикле от 0 до (count-1) div 2 делать
переместить Memo.lines[random(count-1)] в другой список
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Значение random(count-1)] может повторяться и будем выдергивать одно и то же слово. Это значение нужно генерировать в цикле repeat ... until или с goto c проверкой на принадлежность ранее созданному например множеству. Типа так:
for i:=0 to (count-1) div 2 repeat j:=random(count-1)+1;b[i]:=j; until j not in b; |
![]() |
![]() |
![]() |
#4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Понял. Нужно еще добавить delete(i) и count:=count-1, т.к. массив будет убывать.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Показ всех имен файлов в каталоге[Delphi] | sergey31 | Помощь студентам | 2 | 27.07.2008 16:43 |
Случайный текст | Reaction | Общие вопросы Delphi | 2 | 09.04.2008 15:01 |
Случайный выбор с папки | Marsik | Помощь студентам | 2 | 15.12.2007 19:04 |
Сохранение имен компонентов в текстовом файле!!! | LETA | Помощь студентам | 2 | 17.06.2007 15:05 |