《Delphi 算法与数据结构》学习与感悟[9]: 循环链表
2008-03-19 13:30
639 查看
前面例子中, 链表的尾节点都再没有链接其他节点; 如果让尾节点再链接首节点, 不就是循环链表了吗?
本例效果图:
本例效果图:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type PMyRec = ^MyRec; MyRec = record Name: string[8]; Age : Word; Link: PMyRec; end; var CurrentNode: PMyRec; {建立链表} procedure TForm1.FormCreate(Sender: TObject); var FirstNode, EndNode: PMyRec; begin New(FirstNode); FirstNode.Name := '李四'; FirstNode.Age := 44; FirstNode.Link := nil; EndNode := FirstNode; {记住尾节点} CurrentNode := FirstNode; New(FirstNode); FirstNode.Name := '张三'; FirstNode.Age := 33; FirstNode.Link := CurrentNode; CurrentNode := FirstNode; New(FirstNode); FirstNode.Name := '钱二'; FirstNode.Age := 22; FirstNode.Link := CurrentNode; CurrentNode := FirstNode; New(FirstNode); FirstNode.Name := '赵一'; FirstNode.Age := 11; FirstNode.Link := CurrentNode; CurrentNode := FirstNode; EndNode.Link := FirstNode; {把首尾接起来} end; {循环访问链表节点} procedure TForm1.Button1Click(Sender: TObject); begin Text := CurrentNode.Name + #44 + IntToStr(CurrentNode.Age); CurrentNode := CurrentNode.Link; end; end.
相关文章推荐
- 《Delphi 算法与数据结构》学习与感悟[8]: 单向链表的添加、删除与遍历
- 《Delphi 算法与数据结构》学习与感悟[10]: 双向链表
- 《Delphi 算法与数据结构》学习与感悟[7]: 链表与数组的异同
- 《Delphi 算法与数据结构》学习与感悟[6]: 一个简单的"单向链表"
- 《Delphi 算法与数据结构》学习与感悟[4]: 关于 const
- 《Delphi 算法与数据结构》学习与感悟[2]: 数据对齐
- 《Delphi 算法与数据结构》学习与感悟[5]: 定位一个字符位置时, Pos 函数为什么不是最快的?
- 《Delphi 算法与数据结构》学习与感悟[4]: 关于 const
- 《Delphi 算法与数据结构》学习与感悟[1]: 通过 "顺序查找" 与 "二分查找" 说明算法的重要性
- 《Delphi 算法与数据结构》学习与感悟[3]: 获取一个字节中非空位的个数
- 《Delphi 算法与数据结构》学习与感悟[4]: 关于 const
- 线性表12|循环链表 – 数据结构和算法17
- 数据结构 P36-37 算法实现 双向循环链表的插入与删除
- 数据结构学习之循环链表结构
- C#数据结构和算法学习系列十三----链表
- PHP数据结构与算法:单向循环链表
- 数据结构学习系列三-单向循环链表(c++实现且应用模板)
- 数据结构和算法学习二,之循环和递归
- 数据结构学习笔记 --- 线性表 (一些常见的关于链表的算法和面试题)
- 双向循环链表的频度自学习算法