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í:

procedure TForm1.MyProc1(Sender: TObject);
begin
end;

pero no si fuese así

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:

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]

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:

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:


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