站长手册

答：

    用record作为节点类型

    type

       Node = record

        Data : string;

        Pre   : ^Node;

        Next : ^Node;

       end;

       TDoubleLinkList = class

        public

            procedure Create;

            procedure Destroy;

            {...Other Operation}

        protected

        {  to do }

        private

        { to do}

        end;