![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
кривокодер ;)
Форумчанин
Регистрация: 20.06.2008
Сообщений: 707
|
![]()
phomm, Каунт - количество (пусть будет 100). Индексы стрингЛиста исчисляются от нуля. Т.Е. 0й индекс = первый элемент. 99й индекс = 100й элемент.
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид} |
![]() |
![]() |
![]() |
#12 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
Johnson, не спорьте.
phomm абосолютно прав. Индексы от нуля. Но Count - это Количество. Random(Count) (при Count = 100, как в вашем примере), вернёт число 0<= Random(Count) < 100 Т.е. от 0 до 99 что правильно. Random(Count-1) - ошибочно! (последняя строчка (с индексом 99) никогда не выпадет!) |
![]() |
![]() |
![]() |
#13 |
кривокодер ;)
Форумчанин
Регистрация: 20.06.2008
Сообщений: 707
|
![]()
Извиняюсь за дезу. Первый раз об этом услышал.
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид} |
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
![]()
Выяснилось одно но. Когда я запускаю программу. Она выдает случайные строчки точно в таком же порядке как это было в прошлые разы запуская ее.
Как от этого избавится? |
![]() |
![]() |
![]() |
#15 |
кривокодер ;)
Форумчанин
Регистрация: 20.06.2008
Сообщений: 707
|
![]()
на OnCreate формы повесить следующее первым пунктом:
Код:
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид} |
![]() |
![]() |
![]() |
#16 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
![]()
Да действительно помогло. Кто-то из участников темы даже писал об этом выше. Но я почему-то не придал этому значения. Еще раз спасибо.
|
![]() |
![]() |
![]() |
#17 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
![]()
Хочется снова продолжить эту тему. Открываемый файл вырос до 8 мегабайт. Больше расти не должен. Но меня достаточно сильно беспокоит нагрузка на компьютер. Открывать и выбирать случайную строчку с файла приходится около 20 раз в минуту.
Расскажите пожалуйста в Теории как происходит открытие и выбор случайной строчки. При каждом открытие этот файл записывается в память RAM и происходит поиск случайно строчки? В памяти он занимает этих же 8 мегабайт? |
![]() |
![]() |
![]() |
#18 |
кривокодер ;)
Форумчанин
Регистрация: 20.06.2008
Сообщений: 707
|
![]()
пусть TS:TStringList, в который вы грузите ваши данные..
Код:
Если выборка строки происходит достаточно часто - то не выгужайте лист. выбрать случайный элемент намного меньше ресурсов займет, чем каждый раз загружать список. А размер в памяти... на современных компьютерах это не актуально.
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид} |
![]() |
![]() |
![]() |
#19 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
![]() Код:
Не выгружать лист, тоесть вы предлагаете за комментировать эту строчку: Код:
|
![]() |
![]() |
![]() |
#20 |
кривокодер ;)
Форумчанин
Регистрация: 20.06.2008
Сообщений: 707
|
![]()
var stringBuff:TStringList; - делаййте глобальной.
и при создании формы (OnCreate): Код:
Код:
Код:
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид} |
![]() |
![]() |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
случайно удалил программу | voldemen | Компьютерное железо | 8 | 29.09.2010 15:32 |
работа с большим объемом данных | Ckif | Microsoft Office Excel | 1 | 14.09.2010 17:05 |
случайно число (rand) | Abuhamed | PHP | 4 | 20.02.2010 13:05 |
Случайно но не повторяясь! | uraura | Общие вопросы Delphi | 8 | 30.11.2008 19:46 |
удаление строчки из файла | tigr1991 | Общие вопросы Delphi | 4 | 01.02.2008 22:51 |