Čekaj, ti si pravio igru a ne znaš šta si pisao? Pa kako mi da znamo?
Ovo result je šta vraća funkcija (vidiš da vraća integer), a for petlja izgleda prolazi kroz polja tabele i proverava ko je pobedio (ko ima 3 vezana polja). To je sve od mene :P
.Funkcija (bar prikazani deo) proverava da li su tri poljavezana U JEDNOJ KOLONI, znači ništa se ne dešava po redovima (ponavljam, bar u prikazanom delu koda). Totalno je nejasno sta predstavalja Result f-je, ovde izgleda da je Result indeks kolone (X kolone) koja ima 3 vezana polja, mada ako je u poslednjoj koloni dobitak Result će biti isti kao i da nije, fali jedan result := -1 na kraju svega..
za JaHvram-a ---- "PRAVIO"
Taj kod je samo deo, ima i za redove i za dijagonalu..hvala _v!rus_ u svakom slucaju, kao i tebi JaHvram, svaka pomoc znaci! Malo mi je jasnije..ako neko moze jos da pojasni bilo bi ok, za taj sugavi result
pa to je sustina koja je bitna u toj proceduri, evo ima i u ovoj funkciji ako vam nesto znaci-ponavljam nisam ekspert!
function TfrMain.GamePlay(xo_Move : Integer):integer;
var
x, y : 1..3;
iWin : integer;
begin
Result := -1;
Inc(iMove);
x := (xo_Move Div 3) + 1;
y := (xo_Move Mod 3) + 1;
if sPlaySign = 'O' then
begin
iOPos[x,y] := 1;
iWin := CheckWin(iOPos);
end
else
begin
iXPos[x,y] := 1;
iWin := CheckWin(iXPos);
end;