Delphi Wieso funktioniert das mit dem Zufall nicht?

Thema durchsuchen

Ansicht

Themen-Optionen

Wieso funktioniert das mit dem Zufall nicht?

Ein Thema von fabgo · begonnen am 1. Nov 2005 · letzter Beitrag vom 2. Nov 2005

Antwort

franktron

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, 15: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;