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;