Jump to content

epimeteusz

Użytkownicy
  • Content Count

    3
  • Joined

  • Last visited

Community Reputation

0 Neutralny

About epimeteusz

  • Rank
    Nowy na forum
  1. 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. 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.
×
×
  • Create New...