Einzelnen Beitrag anzeigen

Veepas

Registriert seit: 19. Dez 2013
2 Beiträge
 
#1

Überschreitung des Maximums (-1) im stringgrid

  Alt 19. Dez 2013, 21:56
hallo Leute,
folgendes ist mir gerade passiert, er soll an der kommentierten stelle checken ob die vorhandenen Koordinaten außerhalb meines Stringgrids liegen. Mein stringgrid geht von 0 -9 in beide richtungen. bitte helft mir.. weiß echt nicht mehr weiter)

Code:
if Form1.stringgrid1.cells[Globala, Globalb]='1' then
      begin
      Form1.stringgrid1.cells[Globala,Globalb]:='3';
      if (Form1.stringgrid1.cells[Globala+Globala1,Globalb+Globalb1]='2')or (Form1.stringgrid1.cells[Globala+Globala1,Globalb+Globalb1]='4') or(Globala+Globala1<0) or (Globala+Globala1>9) or (Globalb+Globalb1<0) or (Globalb+Globalb1>9) then // hier an dieser stelle kommt der error sobald globala oder globalb -1 oder kleiner ist..
        begin
          if (Form1.stringgrid1.cells[Globalx-Globala1,Globaly-Globalb1]='2') or (Form1.stringgrid1.cells[Globalx-Globala1,Globaly-Globalb1]='4') or (Globalx-Globala1<0) or (Globalx-Globala1>9) or (Globaly-Globalb1<0) or (Globaly-Globalb1>9) then
            begin
            versenkt:=1;
            showmessage('Schiff Versenkt');
            counter:=counter-1;
            flaute:=0;
            zugbeginn;
            end
          else
            begin
            showmessage('Ich habe dein Schiff getroffen' + inttostr(globalx)+'/'+ inttostr(globaly))  ;
            treffer2;
            end;

      end
      else
          begin
          treffer2;
          end;
      end
    else
      begin
        Form1.stringgrid1.cells[Globala,Globalb]:='5';
        Flaute:=0;

      end;
end;
  Mit Zitat antworten Zitat