Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
24. Apr 2022
Was bitteschön funktionierte denn bei meinem Post nicht? Danke für Klärung. Hatte es Jahrelang in Betrieb.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
23. Apr 2022
Vor Jahren irgendwo gefunden. Es leistete gute Dienste.
var
vLehmerRandSeed64: Int64 = 0;
vLehmerMultiplierA64: Int64 = 636413622384679305;
vLehmerAdditiveConstantC64: Int64 = $1;
procedure SingleAdd(const A: LongWord; const B: LongWord; const CarryIn: LongWord; var Sum: LongWord; var CarryOut: LongWord);
var