Procedures como parámetros

[jachguate]

la verdad tu pregunta no es muy clara...

Delphi tiene tipos procedurales, que son los que sirven de base al mecanismo de eventos. Si queres que no sea un simple procedimiento sino un método (en otras palabras, un procedimiento que pertenezca a un objeto, simplemente añadis "of object" a la declaración del tipo, como veras a continuación.

Podes hacer una declaración como la siguiente

Type
  TProcActualiza = Procedure(Parametro1 : Integer; Parametro2 : String) of object;

Procedure TForm1.Buscar(Actualizador : TProcActualiza);

Begin
  HacerLaBusqueda;
  Actualizador(Parametro1, Parametro2);
End;

Hola.

Procedure TForm2.Buscar;

Begin
  Form1.Buscar(Form2.Actualizar);
End;

Procedure TForm3.Buscar;

Begin
  Form1.Buscar(Form3.Actualizar);
End;

espero que el ejemplo te deje claro el asunto...

Hasta luego.

[roman]

Empezado por Magician^

function dfx(fx:tfx;x:real;h:real):real; 
....
 
end;

¡Eeeeh! ¡No vale! Yo quería ver la implementación de esta función!

[Magician^]

Sobre:

Empezado por roman

¡Eeeeh! ¡No vale! Yo quería ver la implementación de esta función!

Puedes encontrar la implementación si búscas información sobre cálculo numérico, en general pueden haber varias implementaciones según el método que decidas usar, aqui te va una de las implementaciones:

function dfx(fx:tfx;x:real;h:real):real; {funcion que deriva fx respecto a x}
var ii,ji,ki:integer;
	p,s:real;
	xi:array[0..3]of real;
const
	n=3; {tercer grado}
begin
  Result:=0;
  xi[0]:=x-2*h; xi[1]:=x-h; xi[2]:=x; xi[3]:=x+h;
  for ii:=0 to n do
  begin
	s:=0;
	for ki:=0 to n do if ki<>ii then
	begin
	   p:=1;
	   for ji:=0 to n do if (ji<>ki) and (ji<>ii) then p:=p*(x-xi[ji]);
	   s:=s+p;
	end;
	p:=1;
	for ji:=0 to n do if ji<>ii then p:=p*(xi[ii]-xi[ji]);
	Result:=Result+s*fx(xi[ii])/p
  end;
end;

Servido

[roman]

Empezado por Magician^

Servido

Gracias Magician. Me siento algo apenado ya que realmente estaba bromeando un poco y de hecho erróneamente estaba pensando en derivación simbólica en lugar de numérica de manera que me dije: ¿Cómo ha de ser la función para aceptar una función arbitraria y derivarla?

Te pido disculpas.

[Magician^]

Empezado por roman

Gracias Magician. Me siento algo apenado ya que realmente estaba bromeando un poco y de hecho erróneamente estaba pensando en derivación simbólica en lugar de numérica de manera que me dije: ¿Cómo ha de ser la función para aceptar una función arbitraria y derivarla?

Te pido disculpas.

Amigo, no te preocupes.

La función "derivar", acepta una función arbitraria pero esta debe de estar compilada en el código. En realidad también se puede implementar interpretación simbólica, para ello hay un paso intermedio. Inclusive podria ser tan potente como quisieras usando un interprete del tipo "JvInterpreter" del cual puedes obtener información en este enlace:
http://homepages.borland.com/jedi/jv...nterpreter.htm

Creo que esto debería de tener su propio hilo no?

Saludos.

[yusnerqui]

Muchas gracias amigos los ejemplos han sido muy explísitos y claros, logré que me compilara pero tengo otro problema el procedimiento que quiero pasar es heredado, osea tiene override en la declaración. con cualquiera de los otros procedimientos el programa funciona pero con este me da error de acceso. Gracias de nuevo y si tienen alguna idea me sería muy útil

[yusnerqui]

Bueno este mensaje es para que sepan como acavó todo. Pues declaré un procedimiento que su única función es llamar al procedimiento heredado y ese es el que paso como parámetro, no es una solución elegante pero me funciona a la perfección.

gracias de nuevo por su abitual ayuda.

un Saludo Yusnerqui.

[jachguate]

pero es que con métodos virtuales no debieras tener ese problema, media vez case en el molde, ya que delphi resolverá esto en tiempo de ejecución, y pasará un puntero al método correcto, el ya heredado...

Además, si estas usando herencia, creo que podes evitarte el pasar un método. Simplemente pasá un puntero a la instancia actual de la forma.... y, la forma de busqueda, conociendo este ancestro, que llame al método virtual. Eso es polimorfismo!.

Hasta luego.

[yusnerqui]

Empezado por jachguate

pero es que con métodos virtuales no debieras tener ese problema, media vez case en el molde, ya que delphi resolverá esto en tiempo de ejecución, y pasará un puntero al método correcto, el ya heredado...

Uso Delphi 5 con windows 98 y me da error de acceso a la dirección FFFFFFFF... Estoy al pensar que mi Delphi está pasado de moda

Empezado por jachguate

... conociendo este ancestro, que llame al método virtual. Eso es polimorfismo!.

El problema es que quiero usar este buscar no solo con las formas que pertenecen a mi clase TEditar sino que también me servirá para las formas que listan. Aunque ahora que pienso quizas sobrecargando el método creata pudiera obtener un resultado agradable, bueno de todos modos muchas gracias y luego les cuento