Random mit zufalls zahlen

[Luckie]

Du willst die Listbox mit 8765 Einträgen (9999 minus 1234) füllen, die jeweils aus vierstelligen Ganzzahlen bestehen?

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function RandomRange(min, max: integer): integer;
begin
  result := 0;
  if min < max then
    result := random(max - min + 1) + min;
end;


var
  i: Integer;

begin
  Randomize;

  for i := 0 to 99 do
    Writeln(RandomRange(1000, 9999));

  Readln;
end.