Как генерировать случайные положительные и отрицательные числа?

Posted by Chas under Delphi

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

Neeter
Вот пример:

procedure TForm1.Button3Click(Sender: TObject);

var

 b: boolean;

begin

 b := boolean(random(2)); //Случайно выбираем, добавится положительное или отрицательное число

 if b then memo1.Lines.Add(IntToStr(random(1000)))

 else memo1.Lines.Add(IntToStr(-random(1000)));

end;

тема на форуме