Kółko i krzyżyk ustalenie zwycięzcy

[epimeteusz]

Witam!

 

Mam problem a mianowicie pisze kółko i krzyżyk 20x20 do zwycięstwa potrzebne jest aby 5 krzyżyków bądź kółek było obok siebie. Do stworzenia planszy użyłem stringgrida i proceurą "TForm1.StringGrid1Selection" wpisuje krzyżyki i kółka. Wszystko spoko tylko nie wiem w jaki sposób mogę sie odwołać do współrzędnych tegoż stringgrida zeby sprawdzić warunek wygranej.

[epimeteusz]

poradziłem se, usuńcie to bo nie wiem gdzie to sie robi

[epimeteusz]

Albo macie tu takie cos jakby ktos potrzebował kiedykolwiek takiego czegoś, pętla sprawdzająca mocno, dziekuje do zobaczenia pewnie nigdy bo jak to oddam to zdam programowanie i zapewne nigdy do niego nie wróce XDDDDD

 

 

 

 

 

 

n:=1;

for aRow:=0 to 19 do

begin

for acol:=0 to 18 do

begin

If n=5 then

 

ShowMessage('Wygrana!');

 

 

if (StringGrid1.Cells[acol,aRow]=StringGrid1.Cells[acol+1,aRow] ) and (NOT(StringGrid1.Cells[acol,aRow]='')) then

 

n:=n+1

else

n:=1;

end;

 

end;