在记录类型中写函数

Question

可以写个实例给我吗

Answer 1

  TCanComm = record //class
    private
    CanComm: array[0..MaxComm - 1] of RCanComm;
    ArrayCount: Word; //数组中多少元素
     PCount: Word; //pop时候的指针
     public
    procedure CommPush(CommStr: string);
    procedure CommDel(CommStr: string);
    function CommPop: string;
    procedure CommInitial;
  end;

Answer 2

可参见我的BLOG例子：
http://blog.csdn.net/maozefa/archive/2007/08/27/1760612.aspx