delphi之五子棋程序源代码-胡凯的博客

May

delphi之五子棋程序源代码

spirit 程序源码 2008-5-4

五子棋游戏大家肯定都会玩，其多变的棋术吸引了无数的玩家。今天给大家说说2人对战的五子棋的例子，用DELPHI是比较容易实现的。本程序是一个很简单的实例，仅作为个人学习、复习使用，亦作傻瓜式共享，希望能起到抛砖引玉的作用，让大家有所收获~~

程序用到的组件：1.新建一个项目（废话）2.添加一个Panel组件（在standard页面下） 3.添加一个DrawGrid组件（在Additional页面中）

设置属性如下：Panel组件：

BevelInner=bvRaised    BevelOuter=bvLowered
BevelWidth=2                  BorderWidth=2
BorderStyle=bsSingle   Caption=Panel1

DrawGrid组件的属性：

Colcount=19    DefaultColWidth=20
DefaultRowHeight=20   DefaultDrawing=False
FixedCols=0    RowCount=19
FixedRows=0    ScrollBars=ssNone

定义2个变量：

Private

Tage:array[0..18,0..18] of integer;
//其中0代表没有，1、2分别代表黑子，白子
IsBlack:boolean;//设置了画笔的颜色

还得定义一个函数来判断输赢。具体源码下载

源码 delphi