用delphi写的字符串链表类

//TstrLinkedList单元说明 //该单元声明了一个Tstr_linked_list类，即一个字符串链表类. //第一步，将TstrLinkedList单元引用到当前工程 //第二步，声明一个Tstr_linked_list对象 //第三步，创建对象。 对象名.Create(); //对象的方法说明 //对象创建后，自动产生一个字符串头节点 //使用Sethead方法可以设置头结点的值（字符串） //使用Appendnode方法增加结点，实参中给出需要增加的节点数量（目前限定为1-512个） //使用Showlink过程可以获得整个链表的值. 返回值为string类型,每个节点之间的值用空格分隔 //使用Setvalue方法可以改变指定节点的值, 入口参数为节点索引值(integer型)，节点的值（string型） //使用Getvalue过程可以获得指定节点的值，入口参数为节点索引值(integer型)，返回值为string型