Вывод текста из файла

[glebast]

Приветствую, тебя, добрый человек.
Мне нужно сделать одну подпрограмку:
Чтобы выводила в memo случайные три строки из файла.
Я знаю как читать из файла, знаю как выводить, а вот как сделать так, чтобы програмка выводила случайные три строки пока not eof
Заранее благодарен.

[sergei64_89]

если ты знаешь как считать с файла,то наверника сможешь посчитать количество строк и сделать random

[glebast]

Вот именно, я не знаю как вывести определенную строчку (2,3 и т.д.). Я знаю только как считать до конца файла (while not eof)/
Не подскажешь как считать определенную строчку с файла.
Заранее спасибо.

[Sna1L]

можно считать тупо все строки.
Можно посчитать их кол-во, рандомные числа сохранить в порядке возрастания. открыть файл заново и считать их

[glebast]

О, а как их считать заново, ну те строки на которые выпал рандом.

[Кольша]

var
t:Tstringllist;
begin
t:=Tstringllist.create;
t.loadfromfile('file.txt');
memo1.clear;
randomize;
memo1.lines.add(t.strings[random(t.lines.count-1)]);
randomize;
memo1.lines.add(t.strings[random(t.lines.count-1)]);
randomize;
memo1.lines.add(t.strings[random(t.lines.count-1)]);
t.free;
end;

могут быть опечатки писал от руки без делфи

[glebast]

Сообщение от Кольша

var
t:Tstringllist;
begin
t:=Tstringllist.create;
t.loadfromfile('file.txt');
memo1.clear;
randomize;
memo1.lines.add(t.strings[random(t.lines.count-1)]);
randomize;
memo1.lines.add(t.strings[random(t.lines.count-1)]);
randomize;
memo1.lines.add(t.strings[random(t.lines.count-1)]);
t.free;
end;

могут быть опечатки писал от руки без делфи

А вот что такое Tstringllist что тот делфи на него ругается

[Кольша]

говорю же опечатки замените на

Tstringlist