Código Delphi [-]type TProc1 = procedure; procedure PP; begin Beep; end; procedure TForm1.Button1Click(Sender: TObject); var Proc: TProc1; begin // Asigno el puntero de un procedimiento Proc:= @PP; // Con ese puntero puede ejecutar el procedimiento Proc; // Y muestro su dirección en hexadecimal ShowMessage(IntToHex(Integer(@PP), 8)); end;
type TProc1 = procedure; procedure PP; begin Beep; end; procedure TForm1.Button1Click(Sender: TObject); var Proc: TProc1; begin // Asigno el puntero de un procedimiento Proc:= @PP; // Con ese puntero puede ejecutar el procedimiento Proc; // Y muestro su dirección en hexadecimal ShowMessage(IntToHex(Integer(@PP), 8)); end;