TMemoryStream mit Zufallszahlen füllen

[Sir Rufo]

So gibt es einen Zufallswert, der den gesamten Integer-Bereich abdeckt:

Delphi-Quellcode:

function GetTotalRandomInteger() : Integer;
begin
  Result := 0;
  for i := 1 to 4 do
    Result := ( ( Result shl 8 ) and $FFFFFF00 ) or Random( 256 );
end;