Skocz do zawartości


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


2 odpowiedzi w tym temacie

#1 epimeteusz

    Nowy na forum

  • Użytkownicy
  • 3 Postów:

Napisano śro, 08 lut 2017 - 14:37

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.

#2 epimeteusz

    Nowy na forum

  • Użytkownicy
  • 3 Postów:

Napisano śro, 08 lut 2017 - 15:49

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

#3 epimeteusz

    Nowy na forum

  • Użytkownicy
  • 3 Postów:

Napisano śro, 08 lut 2017 - 15:50

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;