摘要： 只能接收落子和显示棋局状态还不能支持对局。 要支持对局就要能自动判断死子，然后自动体走死的子。 在Game类中增加一个AutoPick方法和相关的调用子方法，就简便地实现了自动提子的功能。 这部分程序如下： Function TGame.AutoPick(APos : Integer) : Integer; //测试自动提子或自杀提子 begin Result := 0; //返... 阅读全文

摘要： 棋盘有了，怎么支持在上面落子呢？ 只要解决下面3个问题就可以了： 1.响应鼠标点击事件，获得“下棋子”的动作源。 2.修改和记录棋局状态。 3.在棋盘上显示棋局的状态。 为此，直接增加一个“棋局类“，也就是对“一盘棋“对象的实现。 先把已经编好的棋盘类移到一个新的单元里，不再放到窗体单元中，我喜欢这样把成熟的程序逐渐移到新单元内存放。 棋盘单元如下： unit UnitBoardView;... 阅读全文

摘要： 围棋，大家都知道是一个在平面上玩的游戏。有朋友别出心裁，提出在一条线上下围棋的想法，并取名叫做StringGo。 觉得很有意思，编个程序玩玩。 首先，要画线围棋的棋盘。顾名思义,线棋盘就是一根直线上均匀画上交叉点,就是取真正围棋盘上的一根线. 线画个看看,程序就是这样的拉 : procedure TForm1.FormPaint(Sender: TObject); var i: Intege... 阅读全文

摘要： 曾经听说过有个日本人把基因组密码的数据转换成电脑音乐，播放出来居然有奇特效果。没有听到过，为何不自己试下？ 基因组密码数据我是搞不懂，MIDI也没有接触过，delphi还没有丢生，一切从头开始开始吧。 首先想到的是如何让电脑按自己给的数据发出声音。 网上一搜，找到一个叫MIDIGen的开源程序，正好可以学习。 显然，点1，2部分会发出声音，看它是怎么做的： 1.播放音符： //note ... 阅读全文