Programm stoppt

[Jumpy]

Keine Idee ob das das Problem löst, aber in der Timer-Prozedur fehlt das "labelmove(Label2);" das analog für alle anderen Labels vorhanden ist.

Bist du bereit was zu lernen und für Vorschläge wie man "sauberer" programmiert offen?
Dein Code würde kürzer und übersichtlicher werden und solche Fehler würden schneller auffallen.

Beispiel:
Diesen Block verwendest du (nur mit einem anderen Label) immer wieder im der Timer-Prozedur:

Delphi-Quellcode:

 
  begin
    Label1.Left:=labelspace;
    Label1.Font.Color:=clblack;
    punktetemporär:=punktetemporär + 10;
    Label16.Caption:=' ' + inttostr(punktetemporär);
    zufallslabel:=random(14)+1;
  end;

das könnte man in eine Prozedur auslagern und muss dass nicht immer wiederholen:

Delphi-Quellcode:

 
  procedure ResetLabelAndIncreasePoints(labe:TLabel)
  begin
    Labe.Left:=labelspace;
    Labe.Font.Color:=clblack;
    punktetemporär:=punktetemporär + 10;
    Label16.Caption:=' ' + inttostr(punktetemporär);
    zufallslabel:=random(14)+1;
  end;

und in der TimerProzedur stünde z.B.:

Delphi-Quellcode:

//...
if zufallslabel=1 then
    begin
    labelmove(Label1);
    if ((((Label1.Left <= imagespace) and (Label1.Left >= (imagespace-32)))) and 
       ((Image1.Top=imagetop+(50*8)) or (Image1.Top=imagetop+(50*7)))) then
     begin
     ResetLabelAndIncreasePoints(label1)
     end;
    end;

Nur als erster Ansatz einer Verbesserung.
Noch einfacher würde es im nächsten Schritt, wenn du alle Labels in einer Liste oder einem Array speicherst (bei Programmstart) und dann kannst du über einen Index auf ein Label zugreifen und die TimerProzedur sähe nur noch so aus:

Delphi-Quellcode:

//...
zufallszahl:=random(14)+1;  //eigentl. auch neue Prozedur ala GenerateNextZufallszahl
//...
zufallslabel:=TLabel(ListeMitLabels[zufallszahl]);
if movelabel(zufallslabel) then  //movelabel wird Funktion die True zurückgibt wenn Spielende noch nicht erreicht
  begin
  if SeltsameBedingungErfüllt then 
    begin
    ResetLabel;
    IncreasePoints;
    DisplayPoints;
    zufallszahl:=random(14)+1;
    end;
  end
else
  begin
  SendGameOverMessage;
  ResetGame;
  end;

Sorry für das Denglisch

[Fallenzer]

Genauere Daten zum if-then-Befehl:

Wenn das Label an einer bestimmten Position und das Image ebenfalls auf der MÖGLICHEN Höhe (daher auch die vielen [or]s) ist, erfolgt eine Punkthochzählung und die Generierung einer neuen Zufallszahl für die Auswahl eines neuen Labels...

Übrigens: den einen Tipp mit dem Kürzen durch eine Prozedur habe ich erfolgreich angewendet. Danke für alle Ratschläge...

...aber dennoch ist mein Problem immer noch nicht gelöst: Ich schicke euch nun eine Bildschirmaufnahme, damit ihr wisst, was für ein Problem ich genau meine....

[stahli]

Mal eine grundsätzliche Frage: Nutzt Du Haltepunkte, überwachte Ausdrücke und Debugging (schrittweise Programmausführung).

Wenn nicht, schau Dir das mal genauer an.

Du kannst auch "OutputDegugString()" verwenden, um irgendwelche Zwischenwerte oder Abläufe in der Konsole nachzuvollziehen.

Der Anfang ist halt mühsam und man muss erst mal einen Angriffspunkt finden (wie beim Tapete ablösen ).
Aber wenn Du Interesse hast, dann wird das schon...


Deine Frage ist hier derzeit etwas unkonkret.
Wenn Du genauere Fragen enger umreißen kannst, wirst Du auch mehr Hilfe bekommen.
Lass Dich nicht entmutigen, wenn es anfangs etwas holprig läuft.

[DieDolly]

Der Fehler wäre meiner Meinung nach fast sofort ersichtlich, wenn das Programm mit dem KLEINEN grünen Dreieck (mit Debugger, "Start F9" steht da im Hint) ausgeführt würde statt mit dem großen.