Randomize o.O

[Bernhard Geyer]

Zitat von himitsu:

Allerdings nicht in einer ganz einfachen Konsolenanwendung, also wenn, dann währe der Übeltäter wohl irgendwie die böse VCL.

Kompilier doch mal mit Debug-DCU's und häng einen Brechpunkt auf die Randomize-Funktion. Dann sieht du ja wer hier voreilig zuschlägt.

[himitsu]

Jetzt wo du's sagts ... hatte doch gestern eine Suche danach losgelassen und dann ganz vergessen nachzusehn wo dieses passiert

*stunden später*

hier gefunden, wo alles Randomize oder RandSeed gesetzt wird:
TSessionIDGen.Create (SessColn)
TPath.Create (IOUtils)
TServerCollection.GetBalancedName (ObjBrkr)
TIdMIMEBoundaryStrings.GenerateRandomChar (IdMessageCoderMIME)
TDNSHeader.Create (IdDNSCommon)
GetRandomString (IdCustomHTTPServer)

Ich dachte man soll Randomize möglichst nur einmal aufrufen?
Wie soll man sowas können, wenn es überall gesetzt wird?

Ach ja, hier die Position, wo das Randomize nun standardmäßig initialisiert wird (StackTrace):
System.Randomize
IOUtils.TPath.Create
System.InitUnits
System.StartExe
SysInit.InitExe
Project3.Project3

Somit ist ein Klassenkonstruktor in der Unit IOUtils schuldig
und diese Unit wird irgendwo über die VCL eingebunden wird,
bzw die Unit IniFiles, welche diese IOUtils einbindet, aber wer nun die blöde IniFiles einbindet, das hab ich auf die Schnelle nicht rausgefunden.

[Muellermilchtrinker]

Also bei meinem Delphi 2009 Professional muss man Randomize nicht aufrufen

[rollstuhlfahrer]

Toll wäre es ja gewesen, wenn in der Unit System im INITIALIZATION-Block einfach ein Randomize aufgerufen wird. Da dieser Block standardmäßig ausgeführt wird (alles bindet die Unit System ein) und auch nur genau 1 Mal, ist wenigstens der Ort richtig.

Warum Indy Randomize aufruft, liegt wohl daran, dass sich bestimmt irgendwelche Programmierer beschwert haben, GetRandomString würde keine zufällige Zeichenkette zurückgeben. (Vermutung)

Benrhard

[sx2008]

Eigentlich sollte ein Zufallszahlengenerator durch eine Klasse gekapselt werden.
Dann könnte man beliebig viele voneinander unabhängige Generatoren bereitstellen und es gäbe keine programmweiten Nebenwirkungen.
Ich denke das liegt daran, dass sich die Pogrammierer seit Turbopascal so sehr an Random() und Randomize() gewöhnt haben, dass man sich nicht getraut hat diesen alten Zopf abzuschneiden.

[himitsu]

Randomize als leere Funktion ohne Funktion,
für RandSeed eine ThreadVar, statt einem normalen Var
und beim ThreadInit jeweils das eigentliche Randomize.

Keine Änderung an alten Programmen, die neuen Programme sind automatisch threadsicher und mehrfache Aufrufe von Randomize haben keine Auswirkung.

[Bummi]

Wenn man sich die Implenetierung von Randomize ansieht verstehe ich das "Gewese" im Sinne von "Nur einmal aufrufen" ohnehin nicht.
Wenn man keine Loops in der Art

Delphi-Quellcode:

For i := x to y do
begin
   Randomize;
  x := Random(z);
  Use(x)
end

kann man IMHO Randomize so oft aufrufen wie man will.