|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2014, 21:41 | #1 |
Регистрация: 29.05.2014
Сообщений: 8
|
рандомизированное удаление строк из Memo
Здравствуйте.
Delphi 7. Есть Memo, содержащий строки, например нулевая первая вторая третья четвертая пятая шестая седьмая сначала определяем случайную строку из memo1: x:=random(memo1.lines.count) затем считываем строку memo1.lines[x] когда количество обращений к одной определённой строке memo1 достигнет, например, 5 - строка из memo1 удаляется. И так в цикле очищается весь memo1 Как это реализовать? я пытался так: Код:
1. куда смотреть для рационализации алгоритма? Уверен, что использование 2-х массивов изящным решением не назовешь (Кстати, не обязательно очищать Memo со строками, можно чтобы рэндом[x] к уже считанным из него n-раз строчкам просто больше не обращался). Использовать множество? Или - массив плюс буферную переменную..? 2. что не так в этом алг-ме, что во втором memo иногда проскакивают странные цифры? 3. при Memo1.Lines.Count>0 - чтобы очистить memo1 совсем - ошибка "Range check error". Как исправить? Спасибо Последний раз редактировалось Bucknall; 29.05.2014 в 21:42. Причина: удалил свои же комменты из кода |
30.05.2014, 00:11 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
такой вариант решения устроит?
Код:
(при выводе строки в Memo2 я в скобках вывожу какое это обращение. разумеется, это можно убрать...) |
30.05.2014, 00:38 | #3 |
Регистрация: 29.05.2014
Сообщений: 8
|
Да, замечательно, спасибо
я к этому времени уже соорудил что-то наподобие Код:
Последний раз редактировалось Bucknall; 30.05.2014 в 00:43. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Memo. Удаление строк | Rakim4ik | Общие вопросы Delphi | 2 | 11.01.2014 15:10 |
Удаление строк в Memo | qpuTuJlb | Помощь студентам | 6 | 01.06.2012 17:17 |
Удаление строк в memo | roxy7 | Компоненты Delphi | 2 | 16.03.2012 23:07 |
Удаление строк в Memo | Marsel737 | Общие вопросы Delphi | 8 | 03.01.2010 10:42 |
Удаление строк из Memo | Leksda | Общие вопросы Delphi | 6 | 20.03.2009 15:31 |