通过指针到结果

阿杰

1. 
   
2. procedure TForm1.btn1Click(Sender: TObject);
   
3. var
   
4.   pa:^Integer;
   
5.   pstr:^string;
   
6. 
   
7. begin
   
8.     New(pa);
   
9.     New(pstr);
   
10.     pa^:=2011;
    
11.     pstr^:='阿杰说这是测试';
    
12. 
    
13.     ShowMessage(IntToStr(pa^));
    
14.     ShowMessage(pstr^);
    
15. end;
    
16. 
    
17. procedure TForm1.btn2Click(Sender: TObject);
    
18. var
    
19.   pa:^Integer;
    
20.   pstr:^string;
    
21. 
    
22.   a:integer;
    
23.   str:String;
    
24. 
    
25. begin
    
26.     a:=1978;
    
27.     pa:=@a;
    
28.     ShowMessage(IntToStr(pa^));
    
29. 
    
30.     str:='阿杰说这是测试';
    
31.     pstr:=@str;
    
32.     ShowMessage(pstr^);
    
33. end;
    

复制代码

upring

我来沙发