# include <stdio.h>
  .....
       int *ptr;
       char *ptr1;
  return 0; 
   }

 var
      ptr  :^integer;  ｛相当于c int *ptr｝
      ptr1 :^char;      {相当于c char *ptr1}

# include <stdio.h>
 ......
     void *ptr; 
   return 0;  
   }  

 var
   ptr: Pointer;

# include <stdio.h>
      ........
      ptr = &Object;
      ......
   return 0;
   }

var
      x, y:integer;
      p:^integer;
   begin 
    x:=17;
    p:=@x;
    y:=p^;
    
    Writeln(format('值为：%d',[y]));
    Readln;
    end;
    end.

# include <stdio.h>
   .....
   .....
       char a[20];
       char *ptr = a;
       ptr++;
       ptr+=2;
  return 0;
  }

var
        a:array[1..20] of Char;
        ptr:PChar; //我们可以将Pchar看作：^Char;
     begin 
         inc(ptr);//Inc相等于C当中的 "++";
         inc(ptr, 2); //相等于C当中的 "+=";
         
    end;

# include <stdio.h>
# include <malloc.h>

int main(void)
{
     int *p, *ptr2;
     int i;
     
     
     ptr = (int*)malloc(sizeof(int) * 20);
     ptr2 = ptr;
     
         for(i = 0; i < 20; i++ )
          {
             *ptr = i;
              ptr++;
           
           }
free(ptr2);

return 0;
}

var
  ptr, ptr2:^integer;
  i: integer;
begin 
 GetMem(ptr, sizeof(integer) * 2);
 //这句等价于c的ptr = (int*)malloc(sizeof(int) * 20) ;
 ptr2:=ptr;
    for i :=0 to 19 do 
      begin 
         ptr^ :=i;
         inc(ptr);
       end;
       
FreeMem(ptr2);
end;