delphi指针链表

### Delphi 中指针与链表的实现

在 Delphi 编程环境中，尽管现代版本提供了诸如 `TList` 或者容器单元中的栈 (`TStack`) 和队列 (`TQueue`) 类来简化集合管理的任务，但在某些情况下仍然需要用到传统的基于指针的手动内存管理和更高效的特定数据结构如链表。

#### 定义节点类型

为了创建一个简单的单向链接列表，在 Object Pascal (即 Delphi 的编程语言) 中首先要定义代表每个节点的数据类型的记录：

type
  PNode = ^TNode; // 指向 TNode 记录的指针声明
  TNode = record
    Data: Integer;
    Next: PNode;
  end;

这里定义了一个名为 `PNode` 的指针指向另一个称为 `TNode` 的记录。该记录包含了两个字段：一个是存储整数的实际数据项；另一个是指向下一项（下一个节点）的指针[^1]。

#### 初始化头结点

初始化一个新的空链表通常意味着设置其头部为空(`nil`)表示没有任何元素存在:

var
  Head: PNode;

begin
  New(Head);
  Head := nil;
end.

这段代码片段展示了如何分配并立即释放一块用于存放新节点地址的空间，接着将其设为 `nil` 来标记这是一个全新的、不含任何有效成员的链表实例[^2]。

#### 插入新节点

要在一个已有的链表前端添加新的项目，则可以按照如下方式编写插入逻辑：

procedure InsertAtBeginning(var List: PNode; Value: Integer);
var
  Temp: PNode;
begin
  New(Temp);          // 创建新节点空间
  Temp^.Data := Value;// 设置新节点的内容
  Temp^.Next := List; // 将当前的第一个节点作为新加入者的后续部分
  List := Temp;       // 更新列表起点至最新加入的那个位置
end;

此过程中涉及到了动态内存分配函数 `New()` ，它负责获取足够的连续字节序列供临时变量 `Temp` 使用，并通过赋值语句完成整个新增动作[^3]。

#### 删除指定节点

对于删除操作而言，假设目标是要移除第一个匹配给定数值的节点，那么算法可能看起来像这样子：

function RemoveFirstOccurrence(var List: PNode; TargetValue: Integer): Boolean;
var
  Current, Previous: PNode;
begin
  Result := False;
  if not Assigned(List) then Exit;

  while Assigned(Current) do begin
    if Current^.Data = TargetValue then break;
    
    Previous := Current;
    Current := Current^.Next;
  end;

  if not Assigned(Current) then exit;

  if Current = List then
    List := Current^.Next
  else
    Previous^.Next := Current^.Next;

  Dispose(Current);
  Result := True;
end;

上述过程遍历了整个链条直到发现符合条件的对象为止，之后调整前后连接关系以绕过待删去的部分，并最终调用 `Dispose()` 函数回收不再使用的资源.