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