Random mit LongWord anstatt Integer liefert Exception

[devidespe]

Der Random-Befehl erlaubt ja die Übergabe eines Inteer-Wertes, um das Maximum zu deklarieren. Der Integer-Befehl definiert laut Online-Hilfe einen Wertebereich von -2147483648..2147483647.

Nun benötige ich aber ein LongWord und einen Wertebereich von 0..4294967295. Das scheint der Random-Befehl unter Delphi 2007 aber nicht zu wollen und ich erhalte eine Exception.

Gibt es hierfür eine Alternative oder einen Trick?

[WM_CLOSE]

Das einfachste wäre 2 Randoms zu addieren.

[Klaus01]

Hallo,

vielleicht hilft Dir dieser Ansatz:

Delphi-Quellcode:

type
  Tint2LongWord = record
    case boolean of
       true:( int : Integer);
       false :( lw : LongWord);
    end;
// ...

  min.lw := 0;
  max.lw := 4294967295;
  res.int := randomRange(min.int,max.int);
// res.lw benutzen

Grüße
Klaus

[devidespe]

Ich nehme an, min/max/res müssen wiefolgt deklariert werden:

var min, max, res : Tint2LongWord;

Wenn ich davor noch ein Randomize einfüge und abschließend res.lw auswerte, erhalte ich immer 4294967295. Da stimmt irgendwas nicht...

[gammatester]

Nimm ein Dummy-Random und einen Typecast:

Delphi-Quellcode:

lw := random(1);  //Dummy
lw := longword(Randseed);

[devidespe]

Danke, jetzt habe ich die Lösung.

[himitsu]

Random erzeugt eigentlich keine Exceptions.

OK, ich hab (leider) auch schon sehr sehr lange keinen mehr gesehn, der mit aktiver Überlaufprüfung und vielleicht sogar auch noch mit Bereichs-/Indexprüfung arbeitet.

Aber im Prinzip könnte sowas auch gehn LongWord(Random($FFFFFFFF))

[gammatester]

Zitat von himitsu:

Aber im Prinzip könnte sowas auch gehn LongWord(Random($FFFFFFFF))

Das ist im Prinzip falsch, weil da 4294967295 nicht erzeugt werden kann! Man bräuchte etwas wie LongWord(Random($100000000)); das liefert allerdings eine Warnung und wird wohl als random(0) interpretiert.