Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
13. Nov 2003
ich führ das randomize ja auch nicht 10 mal in einer prozedur aus wie in deinem beispiel, sondern ledliglich 1mal davor... und "Komische" ergebnisse hab ich keine...
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
12. Nov 2003
ich wusste nichtmal das delphi ne eigene funktion hat....ich hatte sie mir damals so geschrieben:
function Rand(RandFrom, RandTo: integer): integer;
begin
if RandTo > RandFrom then
begin
Randomize;
Repeat
Result := Random(RandTo);
until Result > RandFrom-1;