|
Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
Re: Wieso funktioniert das mit dem Zufall nicht?
1. Nov 2005, 16:58
ManuMFs idee ist schon gut weil dir Random Funktion auf der Systemzeit beruht (sowiet das noch so ist) könnte es sein das dein Prog so lange braucht das Random immer den gleichen Wert ausgibt.
Lösung erhöhe den Wert von Random z.b. If Random(1000)>500 then xxxx else xxxx
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|