资源描述：
《中国象棋Delphi版本程序代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,ExtCtrls,StdCtrls,Buttons,Unit2,Unit3;typeTForm1=class(TForm)PaintBox1:TPaintBox;MainMenu1:TMainMenu;Game1:TMenuItem;NewGame1:TMenuItem;Eixt1:TMenuItem;Label1:TLabel;Label2:TLabel;Label3:TLabe
2、l;BitBtn1:TBitBtn;BitBtn3:TBitBtn;Label4:TLabel;s1:TMenuItem;N1:TMenuItem;N2:TMenuItem;N3:TMenuItem;N4:TMenuItem;N5:TMenuItem;N6:TMenuItem;N7:TMenuItem;N8:TMenuItem;GroupBox1:TGroupBox;PaintBox2:TPaintBox;BitBtn2:TBitBtn;BitBtn4:TBitBtn;BitBtn5:TBitBtn;BitBtn6:TBitBtn;GroupBox2:TGroupBox;Memo1:T
3、Memo;BitBtn7:TBitBtn;N9:TMenuItem;N10:TMenuItem;N11:TMenuItem;N12:TMenuItem;N13:TMenuItem;RadioGroup1:TRadioGroup;RadioGroup2:TRadioGroup;procedureFormCreate(Sender:TObject);procedurePaintBox1Paint(Sender:TObject);procedureNewGame1Click(Sender:TObject);procedureEixt1Click(Sender:TObject);procedu
4、reCrossPaint(x,y,i,j:integer);//自定义画兵格过程procedurePaintBox1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);procedureFindDrop(NowR,NowC:integer);//扫描可以走棋的点过程procedurePaintCMoveDrop();//画出可走点过程procedureWhoWin();//判断输赢过程procedureIsNextWin();//判断是否将军procedureRemHistory();/
5、/走棋记录procedureRepentChess(n:integer);procedureFindAGoodMove();//寻找一个优秀的走法procedureAddPoint(row,column:integer);//加入一个相关点functionEveluate(nSide:integer):integer;//估值函数functionEveluate1(nSide:integer):integer;//测试估值函数functionGetRelatePiece(row,column:integer):integer;//枚举一个位置上棋子所有相关的点functionGetBi
6、ngValue(row,column:integer):integer;//为兵返回附加值//创建可能的走法nPly记录扫描的层数，nSide记录到那边走棋0为红方，1为黑方functionCreatePossibleMove(nPly,nSide:integer):integer;functionMakeMove(depth,n:integer):integer;//猜想过程中生产一个新局面procedureUnMakeMove(depth,n,nChessID:integer);//猜想过程中根据走法恢复一个棋盘functionIsGameOver(depth:integer):i
7、nteger;//猜想过程中判断给定局面是否结束functionAddMove(FormR,FormC,ToR,ToC,nPly:integer):integer;//在nMoveList中插入一个走法functionNegaMax(depth:integer):integer;//深度优先搜索负极大技校functionAlpha_Beta(depth,alpha,beta:integer):integer;//Alpha-Beta搜索算法fu
