Llamar a funcion sin definir todos los parametros

[[oscarac]]

debo entender que si no los tiene predeterminado no se puede?

[[Al González]]

Empezado por oscarac

debo entender que si no los tiene predeterminado no se puede?

Así es. De otra manera, ¿cómo sabría la función qué valores usar?

[[oscarac]]

mmmm
yo provengo de otro lenguaje (Visual Fox - aunque algunos no lo consideran un lenguaje)

como sea... en Fox nuo podia llamar a una funcion inclusive sin parametros

EstablecerRangos()

Function EstablecerRangos
Parameters RInicial, RFinal
RInicial = Iif (Type('rInicial') $ 'U', valor asignado, RInicial)
RFinal = Iif (Type('rFinal') $ 'U', valor asignado, RFinal)

Explicacion

se llama a la funcion sin parametros.. dentro de la funcion se pregunta si el tipo de Variable (del parametro) es Undefined o no definido, entonces toma un valor. caso contratio es un valor definido y conserva su valor....

no he visto hasta el momento en Delphi algo parecido

[[Al González]]

Me dio algo de nostalgia el ejemplo que expones. No porque le tuviera mucho cariño a FoxPro (también lo usé pero desde los tiempos en que todavía no existía la versión "visual"), sino por lo emocionante que era sacarle provecho hasta la última de sus limitadas capacidades como lenguaje (aquello de 5 niveles de llamadas como máximo era una majadería).

En Delphi sí que has visto ya algo parecido y que además requiere mucho menos código: los parámetros con valor predeterminado.

[[oscarac]]

yo tambien use el Foxpro en sus primeras versiones... recuerdo la FoxproLn 2.0 version para redes

y aun es ese limitado lenguaje desarrolle rutinas de busqueda incremental en un "popup" simulado, asi como reportes "armados" que columnas variables e incluso recursividad

[[Al González]]

Encontré esto entre mis recuerdos, que de recuerdos tienen poco pues leo mi propio código de entonces y no entiendo nada.

* Introducir Teclaso Corrector.  Para usarse antes de un Read (o continuaci¢n
* de Read) que leer  botones, cajas de verificaci¢n o botones radio.
Procedure IntrTecCor
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  * Si el £ltimo teclaso antes de un Read es un click de rat¢n y el *
  * primer objeto de lectura es un bot¢n, una caja de verificaci¢n  *
  * o un bot¢n radio, FoxPro comete el grav¡simo error de no        *
  * resaltar tal objeto, por lo que yo utilizo las siguientes dos   *
  * l¡neas para asegurar que la £ltima pulsaci¢n antes del Read sea *
  * de teclado.  Keyboard mete el teclaso en el buffer de teclado e *
  * InKey lo extrae de ah¡ (para que no sea le¡do en el Read).      *
  * As¡, FoxPro "piensa" que la £ltima pulsaci¢n del usuario fue de *
  * teclado y s¡ resalta el objeto correctamente.                   *
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  Keyboard "{F2}" Plain Clear
  = InKey ()
Return

[[Al González]]

Por cierto, en aquellos años tuve el descaro de diseñar un sistema de ventanas, menús y escritorio bastante más flexible que el nativo, incluyendo la capacidad de cerrar la aplicación en cualquier momento y abrirla nuevamente con todo lo que había en pantalla tal y como estaba (ventanas, variables, e incluso el cursor de teclado en el mismo objeto).

Aquello era como hacer "hibernar" a la aplicación, o como una especie de "snap shot" con el que se podía restaurar la sesión aún habiendo apagado o cambiado de computadora.

Estaba encantado con aquellos pequeños artilugios. Ahhhh, que tiempos...

[[oscarac]]

yo encontre esta...
que me seria muy util en Delphi para cuando tengo un campo que debe ser validado

Function _up
Clear Type
Return inli(Lastkey(), 5, 19, 26, 28)

lo que hace esta funcion es verificar si la tecla pulsada es arriba o izquierda, o home.. etc entonces... cuando hacia un get

@10,10 Get _variable1 Pict "@!K' valid !_up() and fvalida_Variable1()
@12,10 Get _variable2 Pict "@!k' valid _up() or fvalida_Variable2()

lo que hace esto es... en el primer GET o edit. no me permitira "subir", entonces lo que coloque en el campo o variable... sera validado pero....
en el segundo get si me permite subir antes de validar la variable...

como dije...
esto me seria muy util en Delphi

[[gatosoft]]

Empezado por Al González

En Delphi sí que has visto ya algo parecido y que además requiere mucho menos código: los parámetros con valor predeterminado.

Como dice Al, en Delphi puedes lograr el mismo efecto con los parámetros con valores por defecto...

A manera informativa, te cuento que existe otra manera de lograr el efecto de utilizar un mismo método con diferentes parámetros, inclusive con diferentes tipos de parámetros... y que por supuesto te va a parecer mas largo, pero es bastante util en diferentes circunstancias... estos son los métodos sobrecargados (overload)...

En la seccion (interface)
  procedure MyMetodo(Parametro1: Integer; Parametro2: String); overload;
  procedure MyMetodo(Parametro1: Integer); overload;
  procedure MyMetodo; overload;

y en la implementacion

  procedure MyMetodo(Parametro1: Integer; Parametro2: String); 
  begin
  end;

  procedure MyMetodo(Parametro1: Integer);
  begin
  end;

  procedure MyMetodo;
  begin
  end;

Como dije, solo a manera informativa

[[gatosoft]]

Ja, ja, creo que respondimos al tiempo y veo que ya tienes implementado tu overload...

curiosamente yo tengo implementada la misma funcion iif en mis programas hace tiempo aunque la implemente con un Variant y así me evité el Overload:

Function IIF(blnCondicion_p:Boolean; varValorSiVerdadero_p:Variant;varValorSiFalso_p:Variant):Variant;
Begin
  if blnCondicion_p then
     Result:=varValorSiVerdadero_p
  else
     Result:=varValorSiFalso_p;
end;

un saludo,

[[maeyanes]]

Hola...

En Delphi ya existen funciones que realizan eso: IfThen en las unidades Math y StrUtils


Saludos...