Sobre Funciones y Procedimientos

[Sapiem]

Saludos nuevamente:

Alguien sabe como podemos listar todas las Funciones y Procedimientos que se encuentran en nuestra Unit, aunque no pertenezcan al TForm...?

por ejemplo, podemos saber con GetPropList los listados de todo de un Form si este tuviera los procedimientos así:

Código Delphi [-]
procedure TForm1.MyProc1(Sender: TObject);
begin
end;

pero no si fuese así

Código Delphi [-]
procedure MyProc2(Sender: TObject);
begin
end;

y ambos están en la misma unit

Gracias

[ecfisa]

Hola Sapiem.

Los identificadores en Pascal,Object Pascal y Delphi son convertidos a direcciones de memoria por el compilador. Los identificadores de funciones y procedimientos no escapan a esta regla, por lo que no es posible en tiempo de ejecución obtener información sobre ellos por su nombre.

Muy distinto es el caso de los métodos ya que un puntero a método tiene la dirección de memoria del código asociado al método y además el objeto al que pertenece. De allí que en tiempo de ejcución se pueda obtener la lista de métodos de cualquier objeto, por ejemplo:

Código Delphi [-]
uses TypInfo;

procedure GetObjMethod(AObj: TObject; TS: TStrings);
var
  i: integer;
  PInfo: PPropList;
begin
  for i := 0 to GetPropList(AObj.ClassInfo, PInfo) do
    if(PInfo^[i].PropType^.Kind = tkMethod) then
      TS.Add(PInfo^[i].Name);
end;

Pero esto no es así para los procedimientos, funciones, variables y constantes.

Saludos.

[dec]

Empezado por ecfisa

Hola Sapiem.

Los identificadores en Pascal,Object Pascal y Delphi son convertidos a direcciones de memoria por el compilador. Los identificadores de funciones y procedimientos no escapan a esta regla, por lo que no es posible en tiempo de ejecución obtener información sobre ellos por su nombre.

Muy distinto es el caso de los métodos ya que un puntero a método tiene la dirección de memoria del código asociado al método y además el objeto al que pertenece. De allí que en tiempo de ejcución se pueda obtener la lista de métodos de cualquier objeto, por ejemplo:

Código Delphi [-]
uses TypInfo;

procedure GetObjMethod(AObj: TObject; TS: TStrings);
var
  i: integer;
  PInfo: PPropList;
begin
  for i := 0 to GetPropList(AObj.ClassInfo, PInfo) do
    if(PInfo^[i].PropType^.Kind = tkMethod) then
      TS.Add(PInfo^[i].Name);
end;

Pero esto no es así para los procedimientos, funciones, variables y constantes.

Saludos.

Muchas gracias, maestro.

[[Lepe]]

Supongo que con algo de imaginación si podremos, por ejemplo, rellenando un array de estructuras:

Código Delphi [-]
type funciones = record
    nombre : string;  //el nombre de la función
    ejecuta : Pointer // un puntero a la función
    devuelve : Pointer // puntero para poder devolver cualquier cosa
    ayuda : string;
    end;

Aunque quizás lo suyo fuera crear una dll o bpl, según convenga.

Saludos

[roman]

Hombre, claro, pero, ¿quién rellena ese array?

// Saludos

[Sapiem]

Muchas gracias a todos.

Puedo usar DLL, pero no es mi intensión, deseaba obtener el pointer en runtime, pero ya veo que no, así que tendría que utilizar los methods de objetos.

Gracias