Показать сообщение отдельно
  #1  
Старый 25.10.2009, 00:00
Иваська Иваська вне форума
Прохожий
 
Регистрация: 24.10.2009
Сообщения: 2
Репутация: 10
Восклицание Генератор случайных чисел и взятие из файла

Добрый день. Скажите, можно ли совместить генератор случаных чисел Randomize или RandSeed (например такой:
procedure TForm1.Button1Click(Sender: TObject);

var RandSeed: LongInt;

begin

RandSeed:=random(10);

ShowMessage(IntToStr(RandSeed));

end с взятием данных из файла таким образом, чтобы из файла бралось случайное значение. При этом файл текстовый, а чтение использовать ReadLn, то есть чтобы читались не все строчки, а лишь одна случайная. Спасибо за помощ!!
Ответить с цитированием