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

[celovec]

Добрый день. Необходимо вывести случайную строчку из текстового файла объемом около 2-3мб.
Подскажите пожалуйста как правильно это сделать.

[phomm]

юзай

var sl : tstringlist;
...
sl := tstringlist.create;
sl.loadfromfile(путь+имя файла);
label1.caption := sl[random(sl.count)];

вроде как всё должно работать

[_SERGEYX_]

Загрузить текстовый файл в StringList. И взять Random от 0 до StringList.Count-1

[ЗаводнойАпельсин]

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

[Пепел Феникса]

[OFFTOP]

сектовый

12345678
[/OFFTOP]

[_SERGEYX_]

Хе, я уже исправил

[ЗаводнойАпельсин]

randomize;

ещё поставить перед всем этим кодом перед выводом сообщения

[Пепел Феникса]

ещё поставить перед всем этим кодом перед выводом сообщения

в OnFormCreate достаточно один раз

[phomm]

по-моему, нельзя брать random(count-1), потому что последняя строчка не выпадет никогда. ведь рандом берет рандомное число такое что x:= random(n) будет давать 0<=x<n

[celovec]

Спасибо за такое большое количество ответов.
Все получилось.