Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Zufallszahl ziehen ohne wiederholung

    Delphi
    by Blup, 17. Feb 2009
  Ein Variante von mir, schafft auf meinem Rechner 3 Millionen Ziehungen von 6 aus 49 pro Sekunde.
  
  const
  CRLF = #13#10;
  
  function Lottozahlen(Min, Max: Integer; Count: Word): TIntegerDynArray;
  {---}
  procedure Swap(var Value1, Value2: Integer); inline;
  var
  Temp: Integer;