Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
17. Mai 2004
Nicht unbedingt, in Delphi 7 wird der Performance-Counter genutzt, und der ist schnell genug ;)
procedure Randomize;
{$IFDEF LINUX}
begin
RandSeed := _time(nil);
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
var
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
17. Mai 2004
Sicher ;) Es geht a) auf die Performance und b) mindert es die Qualität der Zufallszahlen.
In älteren Delphi Versionen, auf Linux und auf älteren Windows Versionen kannst Du mit folgendem Konstrukt schnell mal 1000 gleiche Zahlen erreichen.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Memo1.Lines.BeginUpdate;
try
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
17. Mai 2004
Ein wichtiger Teil fehlt :shock: Randomize nur einmal pro Programmstart aufrufen :!:
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
17. Mai 2004
Ich zitiere nochmals ;)
Letzteres ist zu diesem Problem die Lösung ;)
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
17. Mai 2004
Die Lösung heißt Random und Randomize
...:cat:...