指針初始值該怎麼設定?(菜鳥求助)
關於下面的程序,我有兩個問題,第一:指針的初始值在這裡怎麼設置?我如何讓他指向鏈表的初始結點?第二,prior:=prior^.next;這條語句好象沒執行,為什麼?怎麼設置這個循環呢?
procedure TForm1.Button2Click(Sender: TObject);
//插入
type
PNode=^TNode;
TNode=Record
ElemValue:string;
prior:PNode;
next:PNode;
end;
var
prior:PNode;
begin
new(prior);
if prior^.ElemValue=Edit2.text then
begin
prior.next^.ElemValue :=Edit3.Text;
prior.next.next^.elemvalue:=prior.next^.ElemValue;
end;
prior:=prior^.next;
end;