[ApxaHGe1]

Сообщение от Иваська

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

Вот ...

Код:

var
  Form1: TForm1;
  l_count:integer;
  s_line:integer;
  number:string;
  g_number:integer;

implementation

{$R *.dfm}
//Мемо можно заменить на TStringList ... как удобнее
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('Numbers.txt');
l_count:=memo1.Lines.Count;
Randomize;
s_line:=Random (l_count);
number:=Memo1.Lines.Strings[s_line];
Randomize;
g_number:=Random (StrToInt (number));
ShowMessage (IntToStr (g_number));
end;

end.

Исходник