Llamar a funcion sin definir todos los parametros

[[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...

[roman]

Yo tuve un paso fugaz por FoxPro y lo que hice fue un sistema de menús que calcaba el de Turbo Pascal.

// Saludos

[[oscarac]]

se me acaba de ocurrir una idea...
muchos de nosotros (los que provenimos de otros lenguajes) ya teniamos ciertas rutinas las cuales nos facilitaban la vida

es por eso que propongo la creacion de un mural donde "expongamos" las soluciones que le hemos dado en el lenguaje delphi

por ejemplo

en Foxpro tenia la funcion IIF (asi como el iif de Access)
la solucion en delphi la hice asi

Código Delphi [-]
 
function IIF(Condition: Boolean; TrueString : String; FalseString: String = ''): String; overload;
begin
  if Condition then
    result := TrueString
  else
    result := FalseString;
end;

y su aplicacion....

Código Delphi [-]
qrlSubTitulo.Caption := iif (frmBalanceIntegralGasto.rgRango.ItemIndex = 0, 'Saldos Mensuales','Saldos Acumulados');

[[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