Parametros en firebird

[BetoAlonso]

Saludos estimados foristas

deseo saber si existe alguna manera de controlar la cantidad de parametros que envio a un SP, resulta que tengo un SP que en algunos casos va a requerir de 4 parametros y en algunos otros solo de 3 como le indico dentro del SP la tarea a realizar de acuerdo a la cantidad de parametros enviados.

gracias

[mamcx]

Aunque no conozco si hay una funcion que cuente los parametros, no es simplemente:

if Param4 EstaVacio
else

???

[AGAG4]

Yo uso esta función para mandarle los parámetros que sea, pruebalo:

function EjecProc(SP:TIBStoredProc;ParamEntrada,ParamEBusqueda,ParamResultado:String; ContResult:Byte):String;
var x,y:byte;
begin
{**Parámetros
Parámetros de Entrada, Parámetros de Busqueda, Parámetros de Salida(Resultado), Número de Resultados a Devolver}
for y:=1 to 2 do
for x:=1 to ContResult do
Resultados[x,y]:='';
sp.Prepare;
ExtraerCamposDatos(ParamEntrada,ParamEBusqueda,ParamResultado);
if ParamEntrada<>'' then begin
if c>0 then
for x:=1 to c do
if (Campox[x]<>'') and (Datox[x]<>'') then
sp.ParamByName(campox[x]).value:=Datox[x];
end;
sp.ExecProc;
if ContResult=1 then
result:=sp.ParamByName(resultx[1]).AsString
else
if sp.RecordCount =1 then begin
for x:=1 to ContResult do begin
Resultados[x,1]:=sp.ParamByName(resultx[x]).AsString;
if Resultados[x,1]='' then Resultados[x,1]:='1';
end
end else
for y:=1 to sp.RecordCount do begin
for x:=1 to ContResult do begin
Resultados[x,y]:=sp.ParamByName(resultx[x]).AsString;
if Resultados[x,y]='' then Resultados[x,y]:='1';
end;
sp.Next;
end;
end;
(***********************************************************************************


Resultados[]: Es un Arreglo de 2 dimensiones de tipo String.
ExtraerCamposDatos : Es una función que te separa los parámetros, poniendole comas(,) en las separaciones, por ejemplo:
Parametro de Entrada: Clave,Nombre,Dirección

Espero te Ayude. Sino estoy a sus ordenes.