¿como obtener direcciones de memoria...?

[usuario87]

hola estoy empezando con delphi y me acabo de registrar, podrian decirme como podria obtener la direccion de una funcion hecha por mi, tambien la direccion de una variable numerica (DWORD integer) y la direccion de cadena de una variable string, el entorno que uso: delphi 7 segunda edicion v7.2.
gracias.

[ecfisa]

Hola usuario87.

Código Delphi [-]
...
implementation
var
  DW: DWORD;
  ST: string;

function MiFuncion: Integer;
begin
  //
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('MiFuncion: %p %sDW: %p %sST: %p', [@MiFuncion, #10#13,@DW, #10#13, @ST]));
end;

Saludos.

[usuario87]

esea nada mas con poner delante de la variable o funcion el "@" (arroba) ¿me devuelve la direccion de memoria?, bien, gracias.

[ecfisa]

Hola usuario87.

Primeramente te pido disculpas por no haberlo advertido... Muy bienvenido a los foros del Club Delphi.

esea nada mas con poner delante de la variable o funcion el "@" (arroba) ¿me devuelve la direccion de memoria?, bien, gracias.

Si así es. También existe la función Addr que es equivalente al operador "@".

Te pongo otro ejemplo:

Código Delphi [-]
...
function prueba: Integer;
begin
  //
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dw: DWORD;
  st: string;
  p1,p2,p3: Pointer;
begin
  p1:= Addr(prueba);
  p2:= @dw;
  p3:= Addr(st);
  Label1.Caption:= Format('prueba: %p',[p1]);
  Label2.Caption:= Format('dw: %p',[p2]);
  Label3.Caption:= 'st: '+IntToHex(Integer(p3), 8); // (*)
end;

(*) Mostrado con la función IntToHex, sugerido anteriormente por escafandra en este post

Un saludo.