|
var
p byte;
i:integer;
begin
i:= 100; //asigná a una variable el valor que queres
p:=@i; // al puntero de asignas la direccion de i, p vale lo mismo que i
i:=P^; ahora lo apuntado por p lo copiamos a i
edit1.text:= inttostr ; // mostramos i
edit1.text:= inttostr(p^); o tambiem mostramos lo apuntado por p
esto me lo paso un gran amigo que es programador (es un capo !!)
Gracias Maxi
|