Forum: Programmieren allgemein
Delphi
by Sluak,
22. Mär 2011
Und was genau bewirkt das ganze? :?:
Also bei mir ist es so gewesen, dass das Programm abstürzte, wenn ein Paar gefunden wurde. Allerdings passierte das nur manchmal und nicht immer.
Habe es inzwischen gelöst und das Programm ist fertig. Dazu habe ich ein Array genommen, in dem steht, welche Karten noch nicht gefunden wurden. Dann eben per Schleife das Deckblatt bei einem Spielerwechsel...
Forum: Programmieren allgemein
Delphi
by Sluak,
21. Mär 2011
War "If then Schleife" falsch? :P
Naja, das mit den 100 Zeilen meine ich so, dass ich in meiner aktuellen Prozedur leider nichts mit den TImages machen kann. Soll heißen, dass ich die Überprüfung, ob richtig oder nicht, auf jede einzelne Prozedur machen muss, wenn ich auf ein Bild klicke.
Für besseres Verständnis hänge ich das aktuelle Programm einmal an. Leider zeigt er mir derzeit eine...
Forum: Programmieren allgemein
Delphi
by Sluak,
21. Mär 2011
Das bedeutet? :?:
Gibt es keine andere Möglichkeit?
In anderen Prozeduren funktioniert das ganze doch auch, warum also nicht hier?
Forum: Programmieren allgemein
Delphi
by Sluak,
21. Mär 2011
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....
Forum: Programmieren allgemein
Delphi
by Sluak,
21. Mär 2011
Vielen, vielen Dank.
Es funktioniert (wie auch nicht anders zu erwarten :P)
EDIT: Geht das auch mit Prozeduren?
procedure TForm1.Image1Click(Sender: TObject);
begin
BildKlick(1,0,0);
Image1.Picture.LoadFromFile('bilder\'+IntToStr(i)+'.jpg');
Forum: Programmieren allgemein
Delphi
by Sluak,
21. Mär 2011
For i:=1 to 30 do
begin
(FindComponent('Image'+IntToStr(i)) as TPicture).LoadFromFile('bilder\deckblatt.bmp');
end;
Leider kommt dabei bei mir folgende Fehlermeldung: Memory.pas(149): Undefinierter Bezeichner: 'LoadFromFile'
Forum: Programmieren allgemein
Delphi
by Sluak,
21. Mär 2011
Hallo
Es geht um folgendes Problem: Ich schreibe gerade ein Memory Spiel mit Delphi. Dabei gibt es 30 Bilder der einzelnen Karten. Nun möchte ich(wenn zwei Karten gezogen wurden, die nicht übereinstimmen) die Karten wieder umdrehen.
Derzeit wäre mein einziger Lösungsansatz dafür, dem Array (was die Koordinaten der Karten in der Form darstellt) einen Wert zB 0 zuzuweisen und dann per If then...