记录指针数组怎么赋值？(50分)

各位大虾，我下面的代码为什么会出错，求救！
Type
pNodeData=^NodeData;
NodeData=Record
UserCode:String[25];
FullName:String[100];
TypeID:String[25];
end
..........
NodeDatas :Array of PNodeData
..................
setLegth(NodeDatas,100)
NodeDatas[0]^.FullName :=''
----错误
NodeDatas[0]^.userCode :=''
---错误
.......

你的数组里面全部都是存的指针，还没有分配空间啊。

setLegth(NodeDatas,100);
NodeDatas[0] := pNodeData(AllocMem(SizeOf(NodeData)));// 分配空间！！！
//然后再赋值：
NodeDatas[0]^.FullName := 'beta';

谢谢！