DELPHI中使用Tlist类的简单分析(补充)

上次我写了一篇关于如何使用 Tlist 的文章（ DELPHI中使用Tlist类的简单分析 ）。可是不少朋友反映，看了以后还是不能熟练的使用 Tlist 。今天我就以一个实际的例子讲述如何正确的使用 Tlist 类。

我的这个例子是：

有一个链表 UserList ，这个链表中保存的是用户的信息。在另一个链表 CardList ，中保存的是用户的牌信息。其中 CardList 中牌的信息是会随着用户出牌的要求而变化的。但是 UserList 中的用户信息是不变的。

 

首先，我们来定义两个结构

// 用户信息结构

RuserInfo= record

       UserID:String[20];

       Sex:Boolean;

       Face:Byte;

       Score:Integer;

End;

PuserInfo = ^ RuserInfo;

 

// 用户牌对应结构

RuserCardInfo = record

       UserInfo: PuserInfo;

       CardInfo:String[20];

End;

PuserCardInfo = ^ RuserCardInfo;

 

下来我们定义两个链表

UserList ， CardList ： Tlist;

 

当用户加入这个桌子的时候写入 UserList 中

Procedure UserInfoFun(UserID:String;Sex:Boolean;Face:Byte;Score:Integer);

Var

p_User:PuserInfo;

begin

New(p_User);

p_User.UserID:= UserID;

p_User.Sex:= Sex;

p_User.Face:= Face;

p_User.Score:= Score;

UserList.Add(p_User);

……

End;

当给用户发牌的时候

Procedure UserCardInfoFun （ UserID ： String ） ;

Var

       p_Card: PuserCardInfo

p_User:PuserInfo;

I,Count:Integer;

Flag:Boolean;

Begin

       // 首先从用户链表中找出此用户的信息

Count:= UserList.Count;

       Flag:=false;

       For I:=0 to Count-1 do

       Begin

              p_User:= UserList.Item[I];

If UserID = UserID then

Begin

       Flag:=true;

Break;

End;

       End;

       // 新生成一个用户牌信息指针，并加入到牌信息链表中

       If Flag then

       Begin

              New(p_Card);

              p_Card. CardInfo:=’H1H2H3H4’;

              p_Card. UserInfo^:= p_User^;

              CardList.Add(p_Card);

       End;

End;

 

当要从链表中删除用户出牌信息时

Procedure DelUserCardInfoFun(UserID:String);

Var

       p_Card: PuserCardInfo;

I,Count:Integer;

Begin

       Count:= CardList.Count;

       For I:=0 to Count-1 do

       Begin

              p_Card:= CardList.Item[I];

              If p_Card. UserInfo.UserID = UserID then

              Begin

                     CardList.Delete(I);

                     DisPose(p_Card);

                     Exit;

              End;

       End;

End;

 

需要注意的是，我在加入牌信息的时候使用了 p_Card. UserInfo^:= p_User^; 方法。这个方法是将 p_User 的内容直接复制给 p_Card. UserInfo 。也就是说，现在有两份用户信息。所以在后面删除用户牌信息的时候，我直接使用了 DisPose 函数来销毁。

 

其实上面的例子是一个很简单的例子，我想用它作为以前我写的文章的一个补充。希望能对大家使用 Tlist 有个帮助。