Zufallszahlen von 1-26 generieren

[Draos]

Hab eine von Karten Mischen gemacht. Recht lustig sowas.

Delphi-Quellcode:

var I1,I2           :Byte;
    Merge           :Cardinal;
    iWerte          :Array of Integer;
begin
 Randomize;
 SetLength(iWerte,26);
 for I1:=0 to High(iWerte) do
  iWerte[I1]:=I1+1;

 while Merge>0 do begin
  I1:=Random(Length(iWerte));
  repeat
   I2:=Random(Length(iWerte));
  until I2<>I1;
  Tmp:=iWerte[I1];
  iWerte[I1]:=iWerte[I2];
  iWerte[I2]:=Tmp;
  Dec(Merge);
 end;
end;