Fórum Pointer para String #318500

Não sei se é isso que vc quer mas o exemplo abaixo mostra
como converter um pointer, que é o endereço de uma variavel
tipo string, em hexa. No momento não me lembro se existe
uma função pronta pra fazer isso...!


procedure TForm1.Button1Click(Sender: TObject);

var V,EnderV : string[30];
P : Pointer;
I : Int64 absolute P; // I ocupa o mesmo endereço de P

begin
V := ´UMA STRING´;
P := @V;
EnderV := IntToHex(I,16); // converte o endereço de int para string hex.
ShowMessage(EnderV);
end;

vlw... era isso mesmo!