randomize result ???

[Hansa]

Hi,

Zitat von "Sharky:

Rufst Du randomize auch immer wieder neu auf? Das wäre IMHO falsch.

NEIN. Wäre nicht falsch, sondern richtig, da er das nicht macht, kommt immer dieselbe Zahl, die mit dem randomize am Anfang erzeugt wurde !!

Code:

procedure Zufall;
var    I: Integer;
 begin
   Randomize;
   for I := 1 to 50 do begin
     { Ausgabe an zufälligen Positionen im Fenster }
     Canvas.TextOut(Random(Width), Random(Height), 'Fang mich!');
   end;
end;

Quelle : OH.

Merke : vor jeder Zufallszahl randomize aufrufen Sonst ist der Zufall ein gespeicherter.

Gruß
Hansa