Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#15

Re: Randomize mehrmals starten

  Alt 29. Nov 2007, 19:56
Zitat von sirius:
Naja fast richtig. für solche Leute wie dich, hat sich Borland auch etwas ausgedacht und nimmt deswegen statt gettickcount QueryPerformancCounter.
Naja, fast richtig.
Bei Delphi 6 sehe ich in der System.Pas das hier
Delphi-Quellcode:
Procedure Randomize;
...
    CALL GetSystemTime
...
Aber die CodeGear-Fuzzis haben doch etwas verändert, denn bei BDS2006 sehe ich das hier
Delphi-Quellcode:
Procedure Randomize;
...
if QueryPerformanceCounter(Counter) then
Zitat von Amateurprofi:
Das ist gut, weil man sonst (wenn Randomize nur einmal aufgerufen wird) unter bestimmten Voraussetzungen ohne große Probleme vorhersagen kann, welches die nächste "Zufallszahl" ist, wenn die ersten paar "Zufallszahlen" bekannt sind.
Nun ja. Dann verwendet man aber eben nicht den Delphi-PRG, sondern einen etwas sicherererern, z.B. den Twister.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat