Fehlermeldung bei begin und then

[DeddyH]

Zitat:

Delphi-Quellcode:

        For a := 1 to 4 do
        begin
          richtig:=0;
          For b := 1 to 4 do
          begin
            y:=a+b;
            gefunden:=Target.cells[r,y]=IntToStr(Spieler);

Wenn a = 4 und b = 4, wird y zu 8, da Du 8 Zeilen hast, hat die letzte den Index 7. Du liest also über die verfügbaren Zeilen hinaus. Vermutlich gibt es noch mehrere solche Stellen, ich habe beim ersten Fund aufgehört zu suchen.