Diff of /Unit1.pas

OSDN > Find Software > reversi-of-d

 Browse Subversion Repository



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




Diff of /Unit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 7 by yamat0jp,
Sun Jul 12 23:30:08 2015 UTC




revision 8 by yamat0jp,
Mon Jul 13 00:01:54 2015 UTC






#

Line 142 
 end;


Line 142 
 end;












142
 function TStoneGrid.CanSetStone(Player: TPlayer; X, Y: integer;
 function TStoneGrid.CanSetStone(Player: TPlayer; X, Y: integer;

















143
   Reverse: Boolean; const Visible: Boolean): Boolean;
   Reverse: Boolean; const Visible: Boolean): Boolean;

















144
 var
 var















145


   i: integer;


   i, k: integer;















146
   p: Boolean;
   p: Boolean;

















147
   q: ^TPoint;
   q: ^TPoint;

















148
   list: TList;
   list: TList;











#

Line 188 
 var


Line 188 
 var












188
 
 

















189
 begin
 begin

















190
   list := TList.Create;
   list := TList.Create;















191


   result := false;


   try













192


   p := true;


     result := false;













193


   if GetStrings(X, Y) = stNone then


     p := true;













194


   begin


     if GetStrings(X, Y) = stNone then













195


     Method(-1, -1);


     begin













196


     Method(-1, 0);


       Method(-1, -1);













197


     Method(-1, 1);


       Method(-1, 0);













198


     Method(0, -1);


       Method(-1, 1);













199


     Method(0, 1);


       Method(0, -1);













200


     Method(1, -1);


       Method(0, 1);













201


     Method(1, 0);


       Method(1, -1);













202


     Method(1, 1);


       Method(1, 0);













203


   end;


       Method(1, 1);













204


   if (Reverse = true) and (result = true) then


     end;













205


   begin


     if (Reverse = true) and (result = true) then
















     SetStrings(X, Y, Player.Stone);


 
















     for i := 0 to list.Count - 1 do


 















206
     begin
     begin















207


       if Visible = true then


       SetStrings(X, Y, Player.Stone);













208


 


       for i := 0 to list.Count - 1 do















209
       begin
       begin















210


         Sleep(10);


         if Visible = true then













211


         Form1.PaintBox1.Repaint;


         begin













212


 


           for k := 1 to 10 do













213


 


           begin













214


 


             Sleep(10);













215


 


             Application.ProcessMessages;













216


 


           end;













217


 


           Form1.PaintBox1.Repaint;













218


 


         end;













219


 


         q := list[i];













220


 


         SetStrings(q^.X, q^.Y, Player.Stone);















221
       end;
       end;














       q := list[i];
 










       SetStrings(q^.X, q^.Y, Player.Stone);
 













222
     end;
     end;












223
 
   finally







224
 
     for i := 0 to list.Count - 1 do







225
 
       Dispose(list[i]);







226
 
     list.Free;












227
   end;
   end;














   for i := 0 to list.Count - 1 do
 










     Dispose(list[i]);
 










   list.Free;
 













228
 end;
 end;

















229
 
 

















230
 procedure TStoneGrid.Clear;
 procedure TStoneGrid.Clear;





























Legend:



Removed from v.7
 


changed lines


 
Added in v.8













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[reversi-of-d]/Unit1.pas
-revision 7 by yamat0jp,
Sun Jul 12 23:30:08 2015 UTC
+revision 8 by yamat0jp,
Mon Jul 13 00:01:54 2015 UTC
 Line 142 
 end;
  function TStoneGrid.CanSetStone(Player: TPlayer; X, Y: integer;
    Reverse: Boolean; const Visible: Boolean): Boolean;
  var
-   i: integer;
+   i, k: integer;
    p: Boolean;
    q: ^TPoint;
    list: TList;
 Line 188 
 var
  begin
    list := TList.Create;
-   result := false;
+   try
-   p := true;
+     result := false;
-   if GetStrings(X, Y) = stNone then
+     p := true;
-   begin
+     if GetStrings(X, Y) = stNone then
-     Method(-1, -1);
+     begin
-     Method(-1, 0);
+       Method(-1, -1);
-     Method(-1, 1);
+       Method(-1, 0);
-     Method(0, -1);
+       Method(-1, 1);
-     Method(0, 1);
+       Method(0, -1);
-     Method(1, -1);
+       Method(0, 1);
-     Method(1, 0);
+       Method(1, -1);
-     Method(1, 1);
+       Method(1, 0);
-   end;
+       Method(1, 1);
-   if (Reverse = true) and (result = true) then
+     end;
-   begin
+     if (Reverse = true) and (result = true) then
-     SetStrings(X, Y, Player.Stone);
-     for i := 0 to list.Count - 1 do
      begin
-       if Visible = true then
+       SetStrings(X, Y, Player.Stone);
+       for i := 0 to list.Count - 1 do
        begin
-         Sleep(10);
+         if Visible = true then
-         Form1.PaintBox1.Repaint;
+         begin
+           for k := 1 to 10 do
+           begin
+             Sleep(10);
+             Application.ProcessMessages;
+           end;
+           Form1.PaintBox1.Repaint;
+         end;
+         q := list[i];
+         SetStrings(q^.X, q^.Y, Player.Stone);
        end;
-       q := list[i];
-       SetStrings(q^.X, q^.Y, Player.Stone);
      end;
+   finally
+     for i := 0 to list.Count - 1 do
+       Dispose(list[i]);
+     list.Free;
    end;
-   for i := 0 to list.Count - 1 do
-     Dispose(list[i]);
-   list.Free;
  end;
  procedure TStoneGrid.Clear;
 Legend:



Removed from v.7
 


changed lines


 
Added in v.8
 Legend:



Removed from v.7
 


changed lines


 
Added in v.8
-Removed from v.7
+Added in v.8
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository