Pointer para String
tenho uma variável do tipo Pointer e gostaria de converter para String mais não estou conseguindo...
Paullsoftware
Curtidas 0
Respostas
Antseralves
06/04/2006
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;
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;
GOSTEI 0
Paullsoftware
06/04/2006
vlw... era isso mesmo!
GOSTEI 0