Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
x : Integer;
begin
Randomize;
for x := 1 to 10 do
ListBox1.Items.Append(IntToStr(Random(StrToInt(Edit2.Text) - StrToInt(edit1.Text)) + StrToInt(Edit1.Text)));
end;
Hab ich gerade getestet und geht 1a unter Delphi 6
Edit1 : Min
Edit2 : Max
PS: Code ist nicht besonders elegant :D
Edit: Da war wohl jemand schneller ^^