指针与链表的使用

Question

最近做一个小功能设计，就是仓库货位的管理，我的仓库货位排成队列形式，我来了某一部品，我查询整个仓库货位有没有位置，而且从一指定的点向两边查询数据库，发现货位为空，就将它存储进去，我感觉用链表与指针可以实现，但是在delphi
中没有用过，希望有大虾指教。

Answer 1

除非你想自己设计数据库，不然都用SQL就可以了，用不着指针和链表，不用自己重新发明轮子。

Answer 2

PaNode=^TaNode;
TaNode=packed reocrd
  pPr: Pointer; //上一节点的地址；
  a: string[10];
  b: integer;
  ...
  pNe: Pointer; //指向下一节点的地址；
end;用到的函数有：New()//增加一个链表节点、Dispose()//删除一个链表节点
如：
var
  TempNode: PaNode;
begin
  New(TempNode);
  TempNode^.pPr:=LastNode;
  TempNode^.pNe:=nil;
  LastNode^.pNe:=TempNode;
  LastNode:=TempNode;
end;