Нужен Генератор.

[dan582107]

Нужен генератор который генерировал числа из файла (txt)
Пример В файле:
11111
22222
33265641
5145454
245455
545454
8787411
45154845

и он выдал случайные строки из этого файла =)
Спасибо заранее.

[TwiX]

with TStringList.Create do 
begin
 loadFromFile('filename.txt');
 showmessage(string[random(count)]);
 free;
end

[_Engine_]

Должно работать, не проверял

function Generator(const AFile : String) : Integer;
var
  sl : TStringList;
  i : Integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFroFile(AFile);
    Randomize;
    Result := StrToInt(sl.Strings[Random(sl.Count - 1)]);
  finally
    sl.Free;
  end; 
end;