计算机二级:DELPHI中指针和类TLIST结合计算机二级考试

文章作者 100test 发表时间 2009:05:22 12:01:39
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简单的例子，希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识。
　　代码的功能是使用指针和Tlist来生成一个牌串，并将牌串保存在t_CardInfo中。
　　procedure TForm1.Button1Click(Sender: TObject).
　　const
　　//黑桃,红桃,方块,草花
　　CardType:array[0..3] of String = (’S’,’H’,’D’,’C’).
　　const
　　//取出的牌数
　　CardNums = 4.
　　type
　　//保存牌的指针信息
　　RCardrecord = record
　　CardInfo:String[2].
　　end.
　　PCard = ^RCardrecord.
　　var
　　t_List:TList.
　　I:Integer.
　　t_Sub,t_Spare:Integer.
　　t_CardType,t_CardNum:String.
　　p_Card:PCard.
　　t_Random:Integer.
　　t_CardInfo:String[8].
　　Count:Integer.
　　begin
　　//定义一个链表
　　t_List:=TList.Create.
　　//使用循环将52张牌放入链表中
　　for I:=1 to 52 do
　　begin
　　t_Sub:=I div 14.
　　t_Spare:=I mod 14.
　　t_CardType:=CardType[t_Sub].
　　t_CardNum:=IntToHex(t_Spare,1).
　　New(p_Card).
　　p_Card.CardInfo:=t_CardType t_CardNum.
　　t_List.Add(p_Card).
　　end.
　　//使用随机从52张牌中抽取4张牌，并保存在 t_CardInfo中
　　Randomize.
　　for I:=1 to CardNums do
　　begin
　　t_Random:=Random(t_List.Count).
　　p_Card:=t_List.Items[t_Random].
　　t_CardInfo:=t_CardInfo p_Card^.CardInfo.
　　t_List.Delete(t_Random).
　　DisPose(p_Card).
　　end.
　　//清空链表中的指针
　　Count:=t_List.Count.
　　for I:=Count-1 downto 0 do
　　begin
　　p_Card:=t_List.Items[I].
　　t_List.Delete(I).
　　DisPose(p_Card).
　　end.
　　//释放链表
　　t_List.Free.
　　end.
　　分析：
　　1：我们首先创建一个Tlist类的对象t_List。
　　2：将52张牌按照相应的格式保存在这个t_List中。注意，这里t_List中保存的是每个牌的指针。
　　3：随机从这个链表中取出4个指针，并将指针对应的牌信息保存在变量t_CardInfo。因为在将指针插入到t_List中的时候,我们使用了New函数来申请内存，所以当从链表中删除这个指针的时候，一定要使用Dispose函数来释放，否则会形成内存泄露。
　　4：将t_List中剩余的指针释放。
　　5：释放对象t_List对象。
　　使用类Tlist在开发游戏中有很重要的位置，使用方法大多如我上面所写的这样。

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总