como llamo a un procedimiento con parametros opcionales

[luigi_cr]

Ok este es el procedimiento que he creado los ultimos cuatro parametros son opcionales:

Código Delphi [-]
procedure X.opcionales(x1 : Integer; x2 : String;
                          x3 : String; x4 : String;
                          x5 : String; x6 : String;
                          x7 : String = '000000000000';
                          x8 : String = '00000000';
                          x9 : String = '000000';
                          x10 : String = '000000');

pero okupo llamar al procedimiento y pasarle solo los x1, x2, x3, x4, x5, x6 que son los obligados y ademas el parametro x9 por dar un ejemplo; yuo crei q simplemente dejaba el espacio en blanco cuando hacia la llamada al procedure:

Código Delphi [-]
opcionales(x1, x2, x3, x4, x5,
              x6, , ,x9);

no paso ni x7, x8, x10, pero no me funciona me da el siguiente error:

[Error] X.pas(425): Expression expected but ',' found

la idea del procedure con parametros opcionales, es para llamarle varias veces con unicamente los parametrso que okupo pasarle.

[dec]

Hola,

Si no me equivoco no puedes hacer lo que quieres tal como quieres hacerlo. Se me ocurre que si no quieres ocupar un parámetro opcional, pero, necesitas indicar un parámetro opcional posterior... tal vez puedas establecer el parámetro que no necesitas con el valor por defecto. No sé si me explico.

Código Delphi [-]

procedure Proc(p1: string; p2: integer = 1; p3: integer = 2);
begin
  {...}
end;

{...}

begin
  Proc('cadena', 1, 3);
end;

Suponiendo que lo que me interesa realmente es que "llegue" el tercer parámetro, lo que puedo hacer es establecer el segundo parámetro con el valor por defecto. Creo que esa es la única manera de conseguir algo similar a lo que dices, pero, a lo mejor me equivoco.

[[eduarcol]]

La verdad la solucion expuesta por Dec es la mas facil y yo tampoco se si habra otra, pero de recomendacion es mas sencilo hacerlo asi que seguir esperando

[luigi_cr]

si entiendo tu respuesta y te agredesco, pero entonces que sentido tienen los parametros opcionales, si digamas kiera (en mi ejemplo) insertar, bueno los seis primeros q son obligatorios, y solamente el diez, de la forma que tu dices, entonces tendria que pasarle los diez parametros y asi no tiene mucho sentido el uso de parametros opcionales, gracias de todos modos.

[dec]

Hola,

Bueno. Estamos hablando de que es sintácticamente un error tratar de hacer lo que dices. Es decir, el compilador no toleraría esto:

Código Delphi [-]

Proc('cadena', , 3);

Y cualquier otra cosa pasa por un valor válido, sea este o no el determinado "por defecto" para el parámetro. Ya digo, no sé explicarme, pero, me parece algo de cajón que no funcione el asunto tal como quieres.

Ahora bien, contar con la posibilidad de establecer parámetros opcionales... podrá venir bien en algunas ocasiones, podrá no ser recomendable para otras... como suele ocurrir: no es el cuchillo el que mata.

Personalmente, encuentro la posibilidad de establecer parámetros opcionales una buena cosa. Puede ser útil no pocas veces, incluso con sus limitaciones, si quiere verse así.

Por cierto, en PHP, por ejemplo, el modo de tratar los parámetros opcionales es igual que en Delphi. E intuyo que no puede haber mucha diferencia con otros lenguajes.

[luigi_cr]

sip entendi tu respuesta y gracias, me parece un poco engorroso q en delphi se tenga que hacer asi, y si en JAVA o en VB cuando llamas al procedure y no quieres pasarle un parametro simplemente lo dejas en blanco, ya veo que en delphi no, gracias de todos modos

[dec]

Hola,

¿Cómo? ¿Que en Java o Visual Basic (+ Satán +) puede hacerse lo que dices? ¡Pero entonces estoy completamente equivocado! Ahora bien, ¿cómo es posible? ¿Podrías poner aquí algo de código y si no es mucha molestia explicarlo? No hay forma de "saltarse" un parámetro. Tal como lo dices y/o tal como yo lo entiendo no puede hacerse eso en ningún lenguaje de programación de que yo tenga una mínima noción...

Y estoy dispuesto a cortarme la... coleta.

[[eduarcol]]

Empezado por DEC

Y estoy dispuesto a cortarme la... coleta.

jajaja esa estuvo bueno

Por intuicion creo que vb lo permite gracias a los tipos Variant, habria qe tratar de hacelo con la opcion explicit = true

[dec]

Hola,

Nada, nada... yo exigo pruebas.

[[eduarcol]]

Lamento no poder probarlo pero no tengo instalado VB y espero que comprendas qe no pretendo instalarlo :P

[[egostar]]

Yo creo que se refiere a esto

Empezado por ajlopez

Pero args no es sólo un String. Es un arreglo de String. Eso es por el uso de [] en la declaración:

String args[]

Esos corchetes declaran que es un arreglo, en este caso, de String. Por qué la existencia de este parámetro en main? Esta clase ejecutará un programa de consola. Lo lanzaremos desde la línea de comando (el próximo punto a estudiar es cómo compilamos y ejecutamos la clase). Cuando escribimos un comando, podemos agregarle parámetros. Justamente esos parámetros opcionales son los que Java se encarga de entregarnos en el argumento args. Notemos que al declarar un arreglo, no hemos puesto la cantidad de elementos que tiene.

Aqui el link.

Salud OS.

[dec]

Hola,

Bien puede ser egostar, pero, eso no deja de ser un parámetro. ¿Que puede incluir varias cadenas de caracteres? Sí; pero no deja de ser un solo parámetro. Ains... a ver si el amigo luigi_cr nos saca de dudas.

[[basti]]

Pues yo tampoco tengo instalado VB, y tampoco pienso instalarlo (a mi pc le diagnosticaron alergia al VB y se me puede resfriar). Pero te puedo confirmar que en VB se pueden saltar parámetros. Eso sí, al principio puede parecer muy bonito, pero cuando te encuentras código así (lo estoy escribiendo de memoria, así que puede haber algún error):

[vb (no leer puede dañar el intelecto)]
Sub Funcion(primero as Integer, Optional ByVal segundo As Integer = 8, Optional ByVal tercero As Integer = 3, Optional ByVal cuarto As Integer = 3, Optional ByVal quinto As Integer = 7, Optional ByVal sexto As Integer = 9, Optional ByVal septimo As Integer = 3) as integer
.
.
.
resultado = Funcion (3, , , variable1, 4, 5, 7)

' o

resultado = Funcion(3, cuarto = variable1, quinto = 4, sexto = 5, septimo = 7)
[/vb]

[Neftali [Germán.Estévez]]

Otra opción podría ser sobrecargar el método y crear dos llamadas diferentes con diferentes parámetros (si es que es muy común llamarla con ese parámetro relleno y el resto de los opcionesles no).

Código Delphi [-]
procedure X.opcionales(x1 : Integer; x2 : String;
                          x3 : String; x4 : String;
                          x5 : String; x6 : String;
                          x7 : String = '000000000000';
                          x8 : String = '00000000';
                          x9 : String = '000000';
                          x10 : String = '000000'); overload;

procedure X.opcionales(x1 : Integer; x2 : String;
                          x3 : String; x4 : String;
                          x5 : String; x6 : String;                          
                          x9 : String = '000000'
); overload;

La segunda llamada, llamaría a la primera rellenando el resto de parámetros opcionales. Sólo le veo utilidad en el caso que he comentado de que la llamada con el parámetro X9 rellenado y el resto de opcioneles vacíos sea muy habitual.

[dec]

Hola,

Empezado por basti

Pues yo tampoco tengo instalado VB, y tampoco pienso instalarlo (a mi pc le diagnosticaron alergia al VB y se me puede resfriar). Pero te puedo confirmar que en VB se pueden saltar parámetros.

Qué interesante... de verdad que es un motivo más para NO usar eso.

Es broma. Pero, vamos... si esto no queda como el culo del profesor Cojonciano que venga dios y lo vea:

resultado = Funcion (3, , , variable1, 4, 5, 7)

Mondieu...

[[Al González]]

¡Hola a todos!

Luigi_cr:

Conozco, he utilizado, pero no me agrada del todo esa flexibilidad adicional de Visual Basic para el manejo de los parámetros opcionales porque propicia el viejo vicio de la parametrización excesiva, en lugar de fomentar una adecuada programación orientada a objetos. Vaya, este tipo de cosas son el quid de las eternas rivalidades entre Delphi y Visual Basic, entre lo bien pensado y lo que vende al vulgo.

Dices que no tiene mucho sentido que Delphi impida omitir parámetros intermedios. Bien, eso sería cierto si por otra parte tuviera sentido un método con 10 parámetros y no existiera en Delphi la sobrecarga de funciones (esta característica se incluyó en Delphi al mismo tiempo que los parámetros opcionales).

Si lo analizas de una manera objetiva, te darás cuenta que rara vez es menester crear un método con más de tres o cuatro parámetros. La POO está hecha para simplificar la manera de trabajar con los datos y la funcionalidad que hay alrededor de ellos. Un método como ese X.Opcionales tendría que ser revisado.

Ahora bien, ya que tengas un método más decente, digamos, que sólo declare unos tres o cuatro parámetros, podrías recurrir a la sobrecarga (directiva Overload), como bien lo sugirió Neftali, para entonces sí permitir la "omisión" de un parámetro intermedio, que en realidad sería utilizar la versión del método que no requiere (que asume) tal parámetro.

Código Delphi [-]
    TMiSQLConnection = Class (TSQLConnection)
      Public
        { Regresar al punto de restauración de nombre Name }
        Procedure RollbackSavePoint (Const Name :String;
          Const Release :Boolean = False); Overload;

        { Regresar al último punto de restauración marcado }
        Procedure RollbackSavePoint (Const Release :Boolean = False);
          Overload;

Espero esto sea de utilidad.

Un abrazo opcional.

Al González.

[luigi_cr]

la idea no era comparar si vb o delphi es mejor, yo me quedo con JAVA, pero bueno para que voy a sobrecargar un metodo diez veces si la funcion q cumple es la misma, es decir voy a digitar diez veces el mismo codigo noo, para eso son los parametros opcionales, el procedimiento siempre va hacer lo mimo lo unico que va cambiar es el resultado.

[[egostar]]

Empezado por luigi_cr

la idea no era comparar si vb o delphi es mejor, yo me quedo con JAVA, pero bueno para que voy a sobrecargar un metodo diez veces si la funcion q cumple es la misma, es decir voy a digitar diez veces el mismo codigo noo, para eso son los parametros opcionales, el procedimiento siempre va hacer lo mimo lo unico que va cambiar es el resultado.

Bueno, todo surgió a raíz de tu comentario sobre lo que puedes hacer con VB o java y que Delphi NO puedes hacer.

Además, te han dado respuestas de porque no lo hace Delphi, si es mejor o peor no es el caso, mas bien el porque Delphi no lo maneja así.

Salud OS.

[gabrielkc]

En delphi se puede hacer una llamada a un procedimiento evitando algún parámetro cuando se usa OLE:

           
 Mar:=CreateOleObject('Excel.Application');
 Mar.WorkBooks.Open(ExtractFilePath(Application.ExeName)+'\Producto_Terminado_bco.xls');
 Mar.Sheets[1].Copy(,Mar.Sheets[1]);

El código anterior copia la primera hoja de el documento después de la hoja 1, la declaración del procedimiento es el siguiente:

     procedure Copy(Before, After: OleVariant; lcid: Integer); safecall;

[[Al González]]

¡Hola de nuevo!

Empezado por luigi_cr

...para que voy a sobrecargar un metodo diez veces...

¿Alguien te sugirió que hicieras tal cosa? De hecho, si ese fuese el derrotero, no serían 10 sobrecargas sino casi mil.

Insisto que un método con 10 parámetros es algo que despierta muchas dudas respecto a una buena estructuración de clases. ¿Por qué no nos das un poco de contexto para ampliar el panorama y afinar propuestas?

Te invito a leer de nuevo mi comentario anterior.

Un abrazo incomparable.

Al González.