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