Re: Adding random numbers

Posted by Ulrich Becker on December 18, 2000 at 07:55:15:

In Reply to: Adding random numbers posted by hannah on December 07, 2000 at 13:26:07:

procedure TForm1.Button1Click(Sender: TObject);
var 
  ds : real;
  i : integer;
  s : string;
begin
  randomize;
  ds := 0;
  for i := 1 to 3 do
   ds := ds + random (100); 
  str(ds:10:0,s);
  button1.caption := s;
end;