100分求一个delphi的单向循环链表的例子

Question

如题

Answer 1

PNode = ^TNode;
  TNode = record
    iValue: Integer;
    NextNode: PNode;
  end;
  //创建单向循环链表
  function Create():PNode;
  var
      HeadNode, ValueNode, TmpNode: PNode;
      icount: Integer;
  begin
    New(HeadNode);
    HeadNode^.iValue := 0;
    TmpNode := HeadNode;    icount := 1;
    while (icount < 10) do begin
      New(ValueNode);      ValueNode^.iValue := icount;
      ValueNode^.NextNode := HeadNode;      TmpNode^.NextNode := ValueNode;      TmpNode := ValueNode;      Inc(icount);
    end;
    Result := HeadNode;
  end;