D7mir

2022年12月4日

摘要：自动括号引号成对输入阅读全文

posted @ 2022-12-04 22:59 D7mir 阅读(84) 评论(0) 推荐(0)

摘要： unit Rei38; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TR38 = class(T 阅读全文

posted @ 2022-12-04 22:56 D7mir 阅读(61) 评论(0) 推荐(0)

2022年11月17日

Delphi 经典游戏程序设计40例的学习例37 在迷宫中追赶对手

摘要： unit R37; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei37 = class(T 阅读全文

posted @ 2022-11-17 10:10 D7mir 阅读(92) 评论(0) 推荐(0)

2022年11月6日

Delphi 经典游戏程序设计40例的学习例36　增加格子线便于观察改进

摘要： 1 unit R36; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, ExtCtrls, StdCtrls; 8 9 typ 阅读全文

posted @ 2022-11-06 21:50 D7mir 阅读(67) 评论(0) 推荐(0)

Delphi 经典游戏程序设计40例的学习例36　增加格子线便于观察

摘要： procedure TRei36.LineRed; var x,y : Byte; begin MakeBmap.Canvas.Pen.Width := 1; MakeBmap.Canvas.Pen.Color := clRed; for y := 0 to 3 do begin MakeBmap. 阅读全文

posted @ 2022-11-06 17:43 D7mir 阅读(46) 评论(0) 推荐(0)

Delphi 经典游戏程序设计40例的学习例36 不可思议的房间和迷宫

摘要： unit R36; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRoom = record / 阅读全文

posted @ 2022-11-06 16:48 D7mir 阅读(189) 评论(0) 推荐(0)

2022年10月25日

Delphi 经典游戏程序设计40例的学习例35半自动制作迷宫的扩展，3种变化

摘要： unit R35; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei35 = class(T 阅读全文

posted @ 2022-10-25 19:58 D7mir 阅读(55) 评论(0) 推荐(0)

2022年10月23日

Delphi 经典游戏程序设计40例的学习例35 半自动制作迷宫

摘要： unit R35; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei35 = class(T 阅读全文

posted @ 2022-10-23 21:31 D7mir 阅读(140) 评论(0) 推荐(0)

2022年10月19日

Delphi 经典游戏程序设计40例的学习例34 RPG 中的敌人的出现时机

摘要： unit R34; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei34 = class(T 阅读全文

posted @ 2022-10-19 16:36 D7mir 阅读(89) 评论(0) 推荐(0)

2022年10月9日

Delphi 经典游戏程序设计40例的学习例33 点的生存竞争

摘要： unit R33; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TDotDt = record 阅读全文

posted @ 2022-10-09 14:32 D7mir 阅读(140) 评论(0) 推荐(0)

公告