1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

const 
anzahl=100; 

var 
f:array[0..anzahl-1]of Word; 

function zufallszahlen(Minzahl,Maxzahl:word;GleicheErlaubt,Sortiert:boolean;Startwert:longword):boolean; 
var z,x:word; 
begin 
result:=false; 
if maxzahl > 65534 then begin 
showmessage('Der Maximalwert darf 65534 nicht übersteigen'); 
exit; 
end; 
if anzahl > ((maxzahl-minzahl) div 2) 
then begin 
showmessage('Anzahl ist für ordnungsgemäßes Arbeiten zu hoch'); 
exit; 
end; 
if startwert=0 then randomize else 
randseed:=startwert-2147483648; 
fillchar(f,sizeof(f),$FFFF); 
repeat 
z:=random(maxzahl - minzahl + 1) + minzahl; 
for x:=0 to anzahl-1 do begin 
if (f[x]=z)and(not GleicheErlaubt) then break; 
if (z < f[x])and sortiert then 
if (x < anzahl-1) then begin 
move(f[x],f[x+1],sizeof(f[x]) * (anzahl-x)); 
f[x]:=z; 
break; 
end; 
if f[x]=$FFFF then begin 
f[x]:=z; 
break; 
end; 
end; 
until f[anzahl-1] < $FFFF; 
result:=true; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var x:integer; 
begin 
if zufallszahlen(1000,9999,false,true,0)then begin 
memo1.clear; 
memo1.alignment:=taRightJustify; 
for x:=0 to anzahl-1 do memo1.lines.add(inttostr(f[x])); 
end; 
end;					

1:

Zufallszahl:=random(9000000)+1000000;					

1:

randomize;					

1:

z:=random(maxzahl - minzahl + 1) + minzahl;