Memory Spiel -> Computer ziehen

[KleineAerztin]

Also, ich habe jetzt eine Möglichkeit gefunden, wie man den Computer ziehen lassen kann. Aber er kann sich ncoh nicht merken, wo welvche karete gelegen hat und er zieht auch Karten, die eigentlich schon gezogen wurden. Also welche, die schon aus dem Spiel entfernt wurden. Wisst ihr da vclt weiter ?



Die Przedur sieht so aus :

Delphi-Quellcode:

procedure computerzug1;
var X,y : integer;
ButtonK, ButtonL : TButton;
begin
x:=random(36)+1;
ButtonK := Form1.findcomponent('Button'+inttostr(x)) as TButton;
aufdecken(buttonk);
y:=random(36)+1;
ButtonL := Form1.findcomponent('Button'+inttostr ( y )) as TButton;
aufdecken(buttonL);
end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]