Вывод случайно строчки из файла объемом в 3мб.

[Johnson]

phomm, Каунт - количество (пусть будет 100). Индексы стрингЛиста исчисляются от нуля. Т.Е. 0й индекс = первый элемент. 99й индекс = 100й элемент.

[Serge_Bliznykov]

Johnson, не спорьте.
phomm абосолютно прав.
Индексы от нуля. Но Count - это Количество.
Random(Count) (при Count = 100, как в вашем примере),
вернёт число 0<= Random(Count) < 100
Т.е. от 0 до 99 что правильно.

Random(Count-1) - ошибочно! (последняя строчка (с индексом 99) никогда не выпадет!)

[Johnson]

Извиняюсь за дезу. Первый раз об этом услышал.

[celovec]

Выяснилось одно но. Когда я запускаю программу. Она выдает случайные строчки точно в таком же порядке как это было в прошлые разы запуская ее.
Как от этого избавится?

[Johnson]

на OnCreate формы повесить следующее первым пунктом:

Randomize;

[celovec]

Да действительно помогло. Кто-то из участников темы даже писал об этом выше. Но я почему-то не придал этому значения. Еще раз спасибо.

[celovec]

Хочется снова продолжить эту тему. Открываемый файл вырос до 8 мегабайт. Больше расти не должен. Но меня достаточно сильно беспокоит нагрузка на компьютер. Открывать и выбирать случайную строчку с файла приходится около 20 раз в минуту.
Расскажите пожалуйста в Теории как происходит открытие и выбор случайной строчки.
При каждом открытие этот файл записывается в память RAM и происходит поиск случайно строчки? В памяти он занимает этих же 8 мегабайт?

[Johnson]

пусть TS:TStringList, в который вы грузите ваши данные..

memo1.lines.add(SizeOf(TS));

напишет размер в байтах этого массива.
Если выборка строки происходит достаточно часто - то не выгужайте лист. выбрать случайный элемент намного меньше ресурсов займет, чем каждый раз загружать список. А размер в памяти... на современных компьютерах это не актуально.

[celovec]

var stringBuff:TStringList;
begin
 stringBuff:=TStringList.create;
 stringBuff.loadFromFile('путь к файлу, в котором текст');
 ShowMessage(stringBuff[random(stringBuff.count-1)]; выводим случайную строку
 StringBuff.free

Не выгружать лист, тоесть вы предлагаете за комментировать эту строчку:

 StringBuff.free

?

[Johnson]

var stringBuff:TStringList; - делаййте глобальной.
и при создании формы (OnCreate):

 stringBuff:=TStringList.create;
 stringBuff.loadFromFile('путь к файлу, в котором текст');

по таймеру либо каждый раз когда нужно получить строку:

 ShowMessage(stringBuff[random(stringBuff.count-1)]; выводим случайную строку

По уничтожении фрмы (OnDestroy):

 StringBuff.free