一个指会付值的问题?

Question

有一指针
PRtest=^Rtest;
Rtest=record
aa:string;
bb:string;
Next:PRtest;有一数组
a[1]:='aa1',a[2]:='aa2',a[3]:='aa3',......,a[n]:='aan'
b[1]:='bb1',b[2]:='bb2',b[3]:='bb3',......,b[n]:='bbn'请问怎么样将这个数组的值付给这个指针
第一个可以这样
PRtest^.aa:=a[1];
PRtest^.bb:=b[1];
那后面的呢?(要用到PRtest^.next,该怎么做)

Answer 1

var Test1,Tmp:PRTest;New(Test1);
Test1.aa:=a[1];
Test1.bb:=b[1];
tmp:=Test1;
new(Test1);
...
Tmp.Next:=Test1;最好用一个变量记录头指针

Answer 2

随便用一个变量记录第一次New出来的指针啊

Answer 3

这是个链表 我没用delphi做过 
我想头指针是这样的：var Head:PRTest;
在循环的开始 New(Head); New(Test1); Head:=Test1(将Test1的地址付给Head)
然后进入循环，就是407107写的那段代码