Hola
creo un procedimiento:
Código Delphi
[-]
Procedure Datos:
begin
unaQuery.Parameters.ParamByName('parametro1').Value:=unValor;
unaQuery.Parameters.ParamByName('parametro2').Value:=unValor;
unaQuery.Parameters.ParamByName('parametro3').Value:=unValor;
end;
Luego lo llamo:
Código Delphi
[-]
if esBaseMia then
begin
with datamodule1 do
begin
Datos;
end
end
else
with datamodule2 do
begin
Datos;
end;
end;
No se, digo.....
Saludos