Fehlermeldung bei begin und then

[Die Muhkuh]

Zitat:

Zitat von 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.

Da sagt er es doch :)

[foerster7892]

y:=-1

[Die Muhkuh]

Und was soll uns das nun sagen?

Fakt ist, was Detlef gesagt hat. :gruebel:

[foerster7892]

da ich anfangs y auf -1 setze siehe seite 1
is dann y erst 7 d.h. ich greife auf die 7. Zeile zu

[DeddyH]

Du kannst auch 1000 mal y auf -1 setzen, sobald Du a und b addierst, ist y wieder 8.

[Die Muhkuh]

:roll:

Wenn aber in der Schleife a = 4 und b = 4 ist, ist y = 8, da beißt die Maus kein Faden ab.

[foerster7892]

aso stimmt mein Fehler :wall: :wall: :wall: :wall: :wall: :wall:
hab da irgendwie garnicht nachgedacht naja das weg und einfach y:=a+b-1;
jetzt kann ichs starten aber er ignort dsa up........... naja mal gucken was sich machen lässt thx dann nochma