delphi与c++不同的地方(2) --指针

简单的指向整形的指针:

program pointer;

{$apptype console}
uses SysUtils;
type
    pInteger = ^integer;
var
    i : integer = 1;
    p : pInteger = @i;
begin
    p^ := p^ + 1;
    WriteLn(IntToStr(i));
end.

 

指向指针的指针:

program pointerOfPointer;

{$apptype console}
uses SysUtils;
type
    pInteger = ^integer;
    ppInteger = ^pInteger;{如使用c++,此处十分方便了,int** ppInteger即可}
var
    i : integer = 1;
    p : pInteger = @i;
    pp : ppInteger = @p;
begin
    pp^^ := pp^^ + 1;
    WriteLn(IntToStr(i));
end.