Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sir Rufo,
11. Jan 2016
Wenn man eine SSD sein eigen nennt, dann wird das kein Datei-Shredder, sondern ein SSD-Ager (wie lasse ich meine SSD besonders schnell altern) :stupid:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sir Rufo,
11. Jan 2016
So gibt es einen Zufallswert, der den gesamten Integer-Bereich abdeckt:
function GetTotalRandomInteger() : Integer;
begin
Result := 0;
for i := 1 to 4 do
Result := ( ( Result shl 8 ) and $FFFFFF00 ) or Random( 256 );
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sir Rufo,
11. Jan 2016
Wenn da eine zufällige Folge von 4 Byte Blöcken rein soll, wen interessiert dann ob da was vorzeichenlos ist oder nicht?
Lies diese 4 Bytes nachher in ein DWORD und du hast ein DWORD.
Lies diese 4 Bytes nachher in ein Integer und du hast ein Integer.
Lies diese 4 Bytes nachher in ein Double und du hast ein Double.
...
;)
@sahimba :thumb: Ich mach hier mal das Echo :mrgreen:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sir Rufo,
11. Jan 2016
Das erzeugt natürlich einen Stream in Quattro-Größe :stupid:
Nehmen wir an, wir setzen Size auf 100 und schreiben jetzt also 100 Integer-Werte (=4 Byte) ...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sir Rufo,
11. Jan 2016
Ja.
Wiederhole
Erzeuge Zufallszahl
Zufallszahl in Stream schreiben
Bis genug
Was konkret macht dir dabei Probleme?
Erzeugen einer Zufallszahl => Random