指向Delphi中指针的指针

Question

如何在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;

Answer 1

你可以这样做

var
  i: Integer;
  pi: PInteger;       // or ^Integer
  ppi: ^PInteger;     // or PPInteger, if you first define `type PPInteger = ^PInteger`
begin

  i := 3000;
  pi := @i;
  ppi := @pi;

  Writeln('Value of i: ', i);
  Writeln('Value of i: ', pi^);
  Writeln('Value of i: ', ppi^^);