Как вытянуть строку из текстового файла?

← →
UDS (2003-03-10 13:25) [0]

Уважаемые знатоки! Подскажите как организовать рандомный выбор и вывод строки из текстового файла в TLabel? Заранее, спасибо.

← →
MsGuns (2003-03-10 13:29) [1]

Загрузи файл в стринглист, инициализируй рандом, тягай из списка по полученной "случайной" величине

← →
Вадим (2003-03-10 13:41) [2]

function GetRndStr(const FileName): string;
var
i, c, k: integer;
f: TextFile;
begin
i := 0;
AssignFile(f, FileName);
Reset(f);
try
while not Eof(f) do inc(i);
finally
CloseFile(F);
end;

Randomize;
k := Random(i) + 1;
AssignFile(f, FileName);
Reset(f);
try
for c := 1 to i - 1 do
ReadLn(f);
ReadLn(f, Result);
finally
CloseFile(F);
end;
end;

function GetRndStr(const FileName): string;
var
s: TStringList;
begin
s := TStringList.Create;
s.LoadFromFile(FileName);
Randomize;
Result := s[Random(s.Count)];
end;

← →
Вадим (2003-03-10 13:42) [3]

function GetRndStr(const FileName): string;
var
s: TStringList;
begin
s := TStringList.Create;
try
s.LoadFromFile(FileName);
Randomize;
Result := s[Random(s.Count)];
finally
s.free;
end;
end;

Как вытянуть строку из текстового файла? Найти похожие ветки