[Setup_007]

Нужна помощь в создании генератора случайных чисел в диапазоне 0.2-0.85 (например). Число должно выводится в edit. Меня интересует как задать именно такой диапазон?

[ryderx34]

Код:

uses
  Math;

Код:

RandomRange(20, 85) / 100

[Setup_007]

Спасибо большое! не ожидал, что все так просто.

[eXplorer]

Код:

edit1.Text:='0.'+inttostr(RandomRange(2, 85));

[Homez]

Код ryderx34 не очень хорош. Дело в том, что функция RandomRange выдает только целые значения из диапазона. Поэтому, например, число 0.21 будет возможно, а 0.215 - нет. Я предлагаю следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MinVal, MaxVal: Double;
begin
  MinVal := 0.2;
  MaxVal := 0.85;
  Edit1.Text := FloatToStr(Random * (MaxVal - MinVal) + MinVal);
end;

И при этом надо не забыть вызвать Randomize для инициализации генератора случайных чисел, например, при создании формы.