Memory-Spiel: Ideen

[Luckie]

Und jetzt das ganze noch in Routinen packen und mit Parametern aufrufen.

Zu den 14.000 Zeilen für ein Memory sage ich jetzt mal nichts.

[XardasLP]

Der Lehrer ist ein dummy, wenn er die Dokumentation dann nachvollziehen kann, dann ist es ok.

Dem Anwender bleibt der Quelltext ja verborgen. Die Lehrer sagen uns immer das wir trz. noch Schüler sind und keine angestellten Software- Entwickler

[Luckie]

Es geht nicht um den Anwender. Es geht um dich.

Und warum soll man es als Schüler nicht gescheit lernen? Es geht ja nicht um hochkomplxe Software die du programmieren sollst. Ein einfaches Memory Spiel, sauber programmiert.

Und glaub mir, eine saubere Programmierung beugt Fehler vor und hilft Fehler zu finden.

Aber wo waren wir jetzt bei deinem Problem stehen geblieben?

[XardasLP]

Was muss man noch alles := nil setzen?

Auch die Variablen, Timer, Label, Edit usw.?

Delphi-Quellcode:

FormSpiel.Image1.Picture := Nil;
FormSpiel.Image1_1.Picture := Nil;
FormSpiel.Image2.Picture := Nil;
FormSpiel.Image2_1.Picture := Nil;
FormSpiel.Image3.Picture := Nil;
FormSpiel.Image3_1.Picture := Nil;
FormSpiel.Image4.Picture := Nil;
FormSpiel.Image4_1.Picture := Nil;
FormSpiel.Image5.Picture := Nil;
FormSpiel.Image5_1.Picture := Nil;
FormSpiel.Image6.Picture := Nil;
FormSpiel.Image6_1.Picture := Nil;
FormSpiel.Image7.Picture := Nil;
FormSpiel.Image7_1.Picture := Nil;
FormSpiel.Image8.Picture := Nil;
FormSpiel.Image8_1.Picture := Nil;
FormSpiel.Image9.Picture := Nil;
FormSpiel.Image10.Picture := Nil;

Wenn man es so hat und vorher durchgespielt hat treten 1000 Fehler auf.

[nahpets]

Du muss überhauptnichts auf Nil setzen.

Einfach überall die Werte zuweisen, die für den Beginn eines Spieles erforderlich sind und gut is.

Ggfls. weist Du die Werte zu, die Du im Objektinspektor zugewiesen hast, sofern Du dort andere Werte vorgegeben hast, als die von Delphi vergebenen Vorgaben.

[XardasLP]

Delphi-Quellcode:

FormSpiel.Image1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image1_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image2.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image2_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image3.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image3_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image4.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image4_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image5.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image5_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image6.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image6_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image7.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image7_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image8.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image8_1.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image9.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Image10.Picture.LoadFromFile('\Spielkarten\Rueckseite.jpg');
FormSpiel.Label_Information.Caption := '';
FormSpiel.ProgressBar_Spielfortschritt.Position := 0;
FormSpiel.Label_Paare_Gefunden.Caption := '0 / 8';
FormSpiel.Label_PKZ_1.Caption :=  '0 von 16';
FormSpiel.Label_PKZ_2.Caption :=  '';
FormSpiel.Image1.Enabled := True;
FormSpiel.Image1_1.Enabled := True;
FormSpiel.Image2.Enabled := True;
FormSpiel.Image2_1.Enabled := True;
FormSpiel.Image3.Enabled := True;
FormSpiel.Image3_1.Enabled := True;
FormSpiel.Image4.Enabled := True;
FormSpiel.Image4_1.Enabled := True;
FormSpiel.Image5.Enabled := True;
FormSpiel.Image5_1.Enabled := True;
FormSpiel.Image6.Enabled := True;
FormSpiel.Image6_1.Enabled := True;
FormSpiel.Image7.Enabled := True;
FormSpiel.Image7_1.Enabled := True;
FormSpiel.Image8.Enabled := True;
FormSpiel.Image8_1.Enabled := True;
FormSpiel.Timer_FALSCH.Enabled := False;
FormSpiel.Timer_UNAUFGEDECKT.Enabled := False;
FormSpiel.Timer_LOESCHEN.Enabled := False;
end;

Habe ja alle auf Standard zurückgesetzt.
Treten aber dann solche Fehler auf:
https://gyazo.com/70112159a8422face04d14a14d36aff2

Die Timer setzen eigentlich alle Variablen zurück. Weiß net woran das liegen soll.

[Luckie]

Wo sind da jetzt die Fehler? ich sehe da nur ein Rumgeklicke.

Und die Pfade sind auch sehr bedenklich. Das sind absolute Pfade vom aktuellen Arbeitsverzeichnis. Nur was das Arbeitsverzeichnis ist, ist so ziemlich ein Glücksspiel, dass es das Verzeichnis von deiner Anwendung ist.