Skocz do zawartości

epimeteusz

Użytkownicy
  • Zawartość

    3
  • Rejestracja

  • Ostatnio

Reputacja

0 Neutralny

O epimeteusz

  • Ranga
    Nowy na forum
  1. epimeteusz

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

    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;
  2. epimeteusz

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

    poradziłem se, usuńcie to bo nie wiem gdzie to sie robi
  3. 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.
×