Random mit Dec

[sx2008]

Delphi-Quellcode:

function GetRandom(range: Byte): integer;
var
  i: Cardinal;
begin
  // RandomSeed;  // WEG, darf nur einmal aufgerufen werden
  RandomBuffer(i, sizeof(i));
  Result := i mod range;
end;