Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Echte Zufallszahl

    Delphi
    by himitsu, 8. Jun 2006
  OK, hab mal noch 'ne Umwandlung zwischen Integer und Cardinal reingemacht ... die "unsigned"-Warnung sollte nun weg sein (tja, das kommt davon, wenn ASM bei sowas nicht meckert -.-'')
  
  Function Random(Range: LongInt): LongInt;
  Begin
  RandSeed := RandSeed * 134775813 + LongInt(((GetTickCount and 3) or 1);
  
  //Result := Int64(Range) * Int64(LongWord(RandSeed)) div Int64($100000000);
  ...
• Forum: Sonstige Fragen zu Delphi

  Re: Echte Zufallszahl

    Delphi
    by himitsu, 8. Jun 2006
  Einfach nur in dein Programm kopieren, wobei es eventuell besser ist, wenn du diese Funktion etwas umbenennst.
  Und dann statt der "standardmäßigen" Random-Funktion verwenden.
  
  
  Bei mir heißt diese Funktion z.B. RandomC.
  Procedure RandomC(Range: LongInt): LongInt;
  
  
  updown := RandomC(2) + 1;
  if updown = 1 then
• Forum: Sonstige Fragen zu Delphi

  Re: Echte Zufallszahl

    Delphi
    by himitsu, 8. Jun 2006
  Na ja, er bekommt dann richtige Pseudozufallszahlen ^^
  
  Natürlich hier auch das Randomize beim Programmstart nicht vergessen, da es auf den "normalen" Zufallsfunktionen aufsetzt.
  Function Random(Range: LongInt): LongInt;
  Begin
  RandSeed := RandSeed * 134775813 + ((GetTickCount and 3) or 1;
  
  //Result := Int64(Range) * LongWord(RandSeed) div Int64($100000000);
  Result :=...