指针

在c里面有个函数是这样定义的  
   
  func(  
  astruct   **pp,  
  Long   *lp  
  )  
  请问    
  delphi  
  里面怎么搞 问题点数：30、回复次数：1Top

1 楼lanxingw（Qao Kei）回复于 2005-08-18 15:58:20 得分 30

var  
      x:Integer;  
  type  
      a=^Integer;  
      b=^a;  
  procedure   test(i:a;j:b);  
  begin  
      ShowMessage('x='+IntToStr(x)+#10#13+  
                              'i(地址)='+IntToStr(Integer(i))+#10#13+  
                              'i(指向的值)='+IntToStr(Integer(i^))+#10#13+  
                              'i(地址)='+IntToStr(Integer(j))+#10#13+  
                              'i(指向的值)='+IntToStr(Integer(j^))+#10#13  
                              );  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      i:a;  
      j:b;  
  begin  
      x:=20;  
      i:=@x;  
      j:=@i;  
      test(i,j);  
  end;Top

相关问题

• inttostr
• integer

• 帖主：imisu
• lanxingw

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载