Random Problem

[Sharky]

Hai PBiggi,

ich würde es so mache:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;  // Nur einmal im Programm aufrufen!
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  zufall : integer;
  von : integer;
  bis : integer;
begin
  ListBox1.Clear;
  von := StrToInt(edVon.Text);
  bis := StrToInt(edBis.Text);
  for i := 1 to strtoint(edAnzahl.text) do
  begin
    zufall := Random (bis - von +1) + von;
    Listbox1.items.add(IntToStr (zufall));
  end;
end;

[Edit]Ups. Da ist mir marabu zuvor gekommen *g*[/edit]