小编moh*_*kad的帖子

int StackRealloc(stack* S){

  if ((S->array = realloc(S->array,sizeof(int)*(S->size)*2)) != NULL){
    S->size = (S->size)*2;
    return 1;
  }
  else return 0;
}

如何将此代码(c)转换为Delphi(Delphi7)？

如何在Delphi中编写此代码(C++:指针指针)？

   int  var;
   int  *ptr;
   int  **pptr;

   var = 3000;
   ptr = &var;
   pptr = &ptr;

   cout << "Value of var :" << var << endl;
   cout << "Value available at *ptr :" << *ptr << endl;
   cout << "Value available at **pptr :" << **pptr << endl;

首先我写了这个记录:

type
  PNode = ^Tree;
  Tree = record
  key : Integer;
  left,right : PNode;
end;

function TForm1.TreeInit(key: Integer): PNode;
var
  Head : PNode;
begin

Head := nil;
New(Head);

Head.key   := key;
Head.right := nil;
Head.left  := nil;

Result := Head;
end;

一切都很好.然后我将Parent添加到Structure:

type
  PNode = ^Tree;
  Tree = record
  key : Integer;
  left,right : PNode;
  parent     : PNode;
end;

现在我不知道如何以及在哪里初始化父(特别是在插入函数中)？

插入功能:

function TForm1.NodeInsert(Head: PNode; key: Integer): PNode;
begin

if Head = nil then
begin
Result := TreeInit(key);
end else
begin …