record的超级简单问题

Question

  声明一个record，并指定一个指针；机构为：  
PTeamUser = ^TeamUser;
  TeamUser = record
      TeamID,
      UserCount :Integer;
      Users     :Integer;
      Node            :TTreeNode;问题，record已经写入很多记录后设定一个函数让函数的参数和record.Users项目做比较，
  我应该如何做循环呢？

Answer 1

首先
TeamUser = record
      TeamID,
      UserCount :Integer;
      Users     :Integer;
      Node            :TTreeNode
      end;//记录定义结束时要加个end;
其次,不知你对记录是怎么理解的,记录只是自定义了一种数据类型,除非你使用了变量,或者记录数组,或者链表,否则是不能存放东西的,数组的声明是这样的
MyArray:array of TeamUser;

Answer 2

把record放在一个list中，然后取list.count就知道多少个记录了，循环也很方便的。

Answer 3

楼主，我提个小建议：在如今内存比较富足的情况下，你完全可以考虑用类来实现。一方面我见你用到了例表，还存放了TreeNode，与其使用一个record还不如用来管理，这样封装性要好的多，调用者也不用了解你的内部结构。
另一方面，用类的扩展性要好的多，你可以增加处理方法。