forklaring af mere kode

(xo_Move Div 3) giver et tal 0..2

(xo_Move Div 3) + 1 giver et tal 1..3

man skal vel bruge det sidste fordi de arrays man bruger starter i 1

Nummeringenen begynder ved 0

A)

Inc(iMove);
x := (xo_Move Div 3) + 1;    // hvorfor skal der lægges 1 til?
y := (xo_Move Mod 3) + 1;

Fordi at "xo_Move Div 3" og "xo_Move Mod 3" giver tal i intervallet 0-2. Imidlertid er matricen indekseret 1-3.


B)

if sPlaySign = 'O' then
begin
    iOPos[x,y] := 1;              // hvorfor omregnes det til 1?
    iWin := CheckWin(iOPos);
end
else
begin
    iXPos[x,y] := 1;
    iWin := CheckWin(iXPos);
end;

Den troede jeg at vi havde været igennem?

Der er to matricer iOPos og iXPos som indeholder positionerne for hhv. O'erne og X'erne. Hvis der står et 1-tal i en matrice så er der et O/X og hvis der står 0 så er der ikke noget (jo måske i den anden matrice).

Variablen sPlaySign indeholder et 'O' hvis det er O-spilleren som placere sin brik (og sikkert et 'X' hvis det er den anden spiller). Derfor testes der på om sPlaySign er lig med 'O' og hvis det er, så placeres der et 1-tal i iOPos-matricen for at markere at det var et O. Og ellers placeres et 1-tal i iXPos-matricen for at markere at det var et X i stedet.


C)

procedure TfrMain.lblCell0Click(Sender: TObject);
    var
        iWin : integer;
        CellIndex : 0..8;
begin
    if bGameOver = True Then Exit;
    if TLabel(Sender).Caption <> '' then
    begin
        ShowMessage('Cell ocupied!');
        Exit;
    end;
    CellIndex := StrToInt(RightStr(TLabel(Sender).Name, 1));
    iWin := GamePlay(CellIndex); // hvad gør dette?!
end;

Meningen er vist at "den næste spiller" indtaster sit træk i et felt i brugergrænsefalden. Dette havner i variablen CellIndex.

Kaldet til GamePlay() sørger så for at den rigtige brik indsættes på feltet. Det svare simpelthen til at der spilles en runde.

Der lægger da en stor matematisk tanke bag dette, lader det til.

"Mod" er jo resten ved en heltalsdivision, så hvordan kan det være, at

y := (xo_Move Mod 3) + 1; giver [0..2]? 1 mod 3 giver vel 0, og + 1 = 1 - og ligeså med 2 og 3?

Det er nu (xo_Move Mod 3) som ligger i intervallet 0..2.

(xo_Move Mod 3)+1 ligger dermed i intervattet 1..3.

(xo_Move Div 3) giver da 0..1?

Jeg går ud fra at xo_Move er et tal i intervallet 0..8, og i så fald ligger xo_Move Div 3 i intervallet 0..2:

xo_Move, xo_Move Div 3
0, 0
1, 0
2, 0
3, 1
4, 1
5, 1
6, 2
7, 2
8, 2

Ok, mange tak Nielle. Jeg har endnu et spørgsmål. I http://delphi.about.com/library/code/ncaa021803a.htm returnerer funktionen "checkwin" en værdi mellem 0..8 - er denne integer result?

Ja, tallenne 0..8 er ganske rigtigt integer.

Men funktionen checkwin vil nu snarer give et af tallene -1, 0, 1, eller 2. Jeg ved ikke lige hvor at du får 0..8 fra?

Hmm, glem det - jeg kiggede ikke på koden ordentligt. Jeg ser meget gerne, at du lægger et svar. Iøvrigt er der vist også en foregående tråd, hvor du også gerne må lægge et svar

Den anden tråd er da vist lukket :^)

... og et svar :^)