SIGSEGV-Fehler bei Array of TShape

[PhilippusPF]

Hallo!

Ich hätte eine Frage zu einem Schulprojekt: Wir haben den Rohling zu einem Jump-and-Run-Spiel bekommen und sollten selbst weitere Komponenten implementieren. Ich wollte sammelbare Münzen mit einem Array of TShape erstellen und habe dafür den Code für die Erstellung des Spielfeldes abgeschrieben und abgeändert, doch ich erhalte immer den "External: SIGSEGV"-Fehler und weiß nicht, weshalb.
Danke für jede Hilfe!!

Code: Alles auswählen

procedure TForm1.Timer1Timer(Sender: TObject);
var
    i: integer;
    j: integer;
begin       //dieser Teil erstellt das Spielfeld als Blöcke, die sich unter dem Spieler bewegen und erneuern
    for i:=0 to 10 do begin
        Blocks[i].Left := Blocks[i].Left-40;
        if ((Blocks[i].Left+Blocks[i].width) < 0) then begin
            Blocks[i].Left := Blocks[i].left+11000;
            Blocks[i].Top := 500+random(300);
        end;
    for j:=0 to 3 do begin
        Coins[j].Left := Coins[j].Left-40; // in dieser Zeile tritt der SIGSEGV-Fehler auf
        if ((Coins[j].left+Coins[j].width) < 0) then begin
            Coins[j].Left := Coins[j].left+11000;
            Coins[j].Top := Coins[j].Top +100;
        end;
    end;
    end;

PS: ist meine erste Forumsfrage, sorry wenn nicht alles richtig ist

[Sieben]

Du müsstest noch einfügen oder mitteilen, wie deine Variable Coins aussieht. Erster Tip in's Blaue - es hat zB nur 3 statt 4 Elemente...

[PhilippusPF]

Alles klar, das probier ich gleich mal aus! Vielen Dank!

[Sieben]

Ähh...

[Mathias]

Sicher irgendwo ein Create für Coins vergessen.
Für Blocks wurde keines vergessen.