델파이에서 포인터를 가리키는 포인터

Question

이 코드를 작성하는 방법 (C++ : 포인터를 가리키는 포인터) Delphi에서?

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^^); 

Answer 2

코드처럼 할 수는 잘 작동 :

program Project1; 

{$APPTYPE CONSOLE} 

type 
    PIntPtr = ^Integer; 
    PInt2Ptr = ^TIntPtr; 

var 
    pi1: PIntPtr; 
    pi2: PInt2Ptr; 

begin 
    New(pi1); 
    try 
    New(pi2); 
    try 
     pi1^ := 1000; 
     pi2^ := i1; 
     WriteLn(pi2^^); 
     Readln; 
    finally 
     Dispose(pi2); 
    end; 
    finally 
    Dispose(pi1); 
    end; 
end.