Pointer -> Integer

[Guest - Marcos -]

Boa noite,

Sei que da pra armazenar informações de um ponteiro em Integer,

pra ser mais preciso, gostaria de armazenar um Record em uma

variavel integer onde esse record é o PNetResourceA

Como armazenar algum ponteiro em um Integer e ler o mesmo

novamente?

Grato,

Marcos

[Thales Pontes Martins]

Existe uma coisinha chamada Type Cast onde você lê ou escreve em uma variável com o tipo que você quiser. Isso se dá colocando o tipo seguido da variável entre parentesis. então pra transformar ponteiro em integer é assim-> Integer(Ponteiro). E de Integer pra ponteiro é -> Pointer(inteiro). Então no seu caso ficaria->

var
  inteiro : Integer;
  pt : PNetResourceA;
  NetRes : TNetResourceA;
begin
  inteiro:=Integer(@NetRes); // já salvou o ponterio no integer
  pt:=Pointer(inteiro); // jogou o endereço pro ponteiro mesmo.
end;

Nesse caso tanto faz inteiro:=Integer(@NetRes); como Pointer(inteiro):=@NetRes;

Beleza?

[Micheus]

gostaria de armazenar um Record em uma variavel integer onde esse record é o PNetResourceA

Apenas complementando, tenha em mente que você deverá estar armazenando uma área de memória válida. E seu conteúdo será válido apenas em memória (run-time). Não dá para armazenar num arquivo, por exemplo (com este procedimento).

[Guest Visitante]

Boa tarde,

Voltei pra agradecer :D

Beleza valeu galera, deu certo!

Grato,

Marcos