指针

Question

  Tout=Record
   Str:String;
   Int:Integer;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
LInt:Longint;
P:^TOut;
O:Tout;
Str:String;
begin
LInt:=LongInt(P);
end;
怎么把LInt转变回来呢????

Answer 1

什么意思？
LInt:=LongInt(P) 的意思是取得 P 的地址...

Answer 2

简单的说就是把P的内容转变成Longintvar 
LInt:Longint; 
P:^TOut; 
O:Tout; 
Str:String; 
begin 
P :=@Tout;   //p是一个指向Tout的指针
LInt:=LongInt(P); 
end; 

Answer 3

错了，最近老出错，55555555555555555
var   
LInt:Longint;   
P:^TOut;   
O:Tout;   
Str:String;   
begin   
P   :=@O;       //p是一个指向O的指针 
LInt:=LongInt(P);   
end;