Zufallsprinzip bei einem kleinen Spiel

[Elko]

Also, als erstes benutzt du randomize(); um den Zufallsgenerator zu initialisieren. Dann würde ich Random(3); nutzen um eine Zufallszahl zwischen 0 und 2 zu erzeugen. Dann per case-Abfrage mit der Zufallszahl den Inhalt des Labels ändern. Hier der Code (habb ich zwar nicht ausprobiert, aber müsste aber eigentlich funktionieren):

Code:

randomize();
case random(3) of
  0: Label1.caption := 'Schere';
  1: Label1.caption := 'Stein';
  2: Label1.caption := 'Papier';
end;

Gruß, Elko