Ein anderes Problem bestünde da allerdings noch, deswegen auf Doppelpost (sorry, aber ich glaube, dass ansonsten alle noch davon ausgehen würden, dass das Thema beendet wäre).
Ich habe eine Prozedur erstellt, die eben zB die Karten miteinander vergleicht, Punkte addiert, etc. Jetzt wollte ich eure Tipps anwenden, um die nicht zueinander gehörenden Karten nach 2 Zügen wieder umzudrehen, bzw. gefundene Pärchen zu verstecken. Das ganze sieht dann in etwa so aus (beim zweiten Zug, wenn die Karten verglichen werden):
Delphi-Quellcode:
If Karten[x1,y2]=Karten[x2,y2] then begin
(FindComponent('Image'+IntToStr(Karte1))
as TImage).Picture.Hide;
(FindComponent('Image'+IntToStr(Karte2))
as TImage).Picture.Hide;
If Spieler=1 then begin
PunktzahlS1:=PunktzahlS1+1;
TForm1.Label4.Caption:=IntToStr(PunktzahlS1);
end else
PunktzahlS2:=PunktzahlS2+1;
TForm1.Label5.Caption:=IntToStr(PunktzahlS2);
end;
Nun treten folgende Fehlermeldungen auf:
[Fehler] Memory.pas(181): Undefinierter Bezeichner: 'FindComponent'
[Fehler] Memory.pas(182): Operator ist auf diesen Operandentyp nicht anwendbar
(Zeile 181 ist in diesem Ausschnitt die zweite Zeile)