资 源 简 介
一个基于Delphi编写的纸牌游戏动画特效，并不是一个完整的游戏，而是生成的纸牌动态效果，和图像处理有关的一个Delphi范例，如演示截图所示，生成的动画 效果还是挺不错的，或许可作为某方面的借鉴。部分代码如下：
FCardId:Cardinal ; //扑克的编号，0-51为各花色的1-K，52为大王，53小王
FFaceUp:bool; //是否正面朝上
procedure SetCardId(id:Cardinal);//设置扑克牌的编号
procedure SetFaceUp(Flag:Bool); //设置是否正面朝上
function GetValue:integer; //得到扑克牌的点数
function GetSuit:TCardSuit; //得到扑克牌的花色
procedure Paint; override; //画扑克牌的程序
constructor Create(AOwner:TComponent);overload;override; //构造函数
constructor Create(AOwner:TComponent;Id:Cardinal);overload;
procedure SetCard(Suit:TCardSuit;Value:Cardinal); //设置扑克牌的编号
property CardId:Cardinal read FCardId write SetCardId; //扑克牌编号
property FaceUp:bool read FFaceUp write SetFaceUp default False; //正面朝上
property Value:integer read GetValue; //扑克的点数，只读
property Suit:TCardSuit read GetSuit; //扑克的花色，只读
