Foros Club Delphi - Ver Mensaje Individual - Procedimiento con parámetros con valor por defecto

Ledian_Fdez · #1 09-12-2010

Hola, tengo varios procedimientos donde quisiera saber si hay alguna forma de ponerles valores por defecto a los parámetros. Ya que en la mayoria de los casos lo que es el mismo valor.

Este es uno de los tantos procedimientos, pero hay algunos que tienen mas de 10 parámetros.

Código Delphi [-]procedure InicializaDocLegal(Id: Variant; Codigo: Variant; Nombre: Variant);
begin
 with DM.SPListaDocLegal.Parameters do
  begin
   ParamByName('@idDocLeg').Value := Id;
   ParamByName('@Codigo').Value := Codigo;
   ParamByName('@Nombre').Value := Nombre;
  end;
end;

Ejemplo de la llamada:

Código Delphi [-]InicializaDocLegal(Null,Null,Null);
InicializaDocLegal(32,Null,Null);
InicializaDocLegal(Null,'0069',Null);
InicializaDocLegal(Null,'0069','Certifico');

Pero de todas las más usadas es la primera. Y pensé en que si hubiera alguna forma que los parámetros cogieran por defecto el valor Null fuera fabuloso.

Muchas grasias de antemano,

Saludos.