Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository

/[reversi-of-d]/Unit1.pas

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by yamat0jp, Mon Jul 13 11:09:42 2015 UTC revision 12 by yamat0jp, Mon Jul 13 22:33:52 2015 UTC
# Line 287  procedure TStoneGrid.SetTurnNumber(const Line 287  procedure TStoneGrid.SetTurnNumber(const
287  begin  begin
288    if Value > FTurnIndex then    if Value > FTurnIndex then
289      FTurnNumber := FTurnIndex      FTurnNumber := FTurnIndex
290      else if Value < 0 then
291        FTurnNumber := 0
292    else    else
293      FTurnNumber := Value;      FTurnNumber := Value;
294    FActive := false;    FActive := false;
# Line 318  var Line 320  var
320    begin    begin
321      result := false;      result := false;
322      for i := 0 to Count - 1 do      for i := 0 to Count - 1 do
     begin  
323        for j := 0 to Count - 1 do        for j := 0 to Count - 1 do
324          if StoneGrid.CanSetStone(Index.Stone, i, j, false) = true then          if StoneGrid.CanSetStone(Index.Stone, i, j, false) = true then
325          begin          begin
326            result := true;            result := true;
327            break;            Exit;
328          end;          end;
       if result = true then  
         break;  
     end;  
329    end;    end;
330    
331  begin  begin
# Line 393  begin Line 391  begin
391        TurnNumber := TurnNumber + 1        TurnNumber := TurnNumber + 1
392      else      else
393        TurnNumber := TurnNumber - 1;        TurnNumber := TurnNumber - 1;
394      ChangePlayer;
395    PaintBox1.Repaint;    PaintBox1.Repaint;
396  end;  end;
397    
Legend:
Removed from v.11  
changed lines
  Added in v.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help