Punteros a Procesos (procedures)

[ecfisa]

Estoy capturando la direccion en memoria del proceso1?
si es asi como imprimo la direccion, en un tlabel o un ShowMessage?

Hola gersojn.

En la asignación: puntero:=proceso1; estas capturando la dirección del procedimiento proceso1, en la variable puntero .

Un ejemplo para mostrar la dirección:

Código Delphi [-]
type
  TProcedurePtr = procedure;

procedure proceso1;
begin
//...
end;

procedure proceso2;
begin
//...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p1,p2: TProcedurePtr;
begin
  p1:= @proceso1;
  p2:= @proceso2;
  ShowMessage(Format('%p %p',[@p1, @p2]));
  // O en decimal
  ShowMessage(Format('%d %d',[ULong(@p1),ULong(@p2)]));
end;

Saludos.

Casi al mismo tiempo

[[escafandra]]

Empezado por ecfisa

Casi al mismo tiempo

Sip, es que cuando las cosas son de una manera sólo pueden ser de esa manera .

PD ¿Me pareció leer... Casi lo mismo y casi al mismo tiempo?

Saludos.

[ecfisa]

Empezado por escafandra

PD ¿Me pareció leer... Casi lo mismo y casi al mismo tiempo?

Leiste bién , pero como usaste una función diferente para mostrarlo (y por lo tanto otra alternativa) me pareció adecuado corregirlo para que quede destacado.

Un saludo.

[gersojn]

Gracias por la respuesta, lo imprimi con un:
ShowMessage(Format('%p',[@puntero]));

Gracias por responder.