Existe alguna tecnica para no repetir codigo?

[BrunoBsso]

Empezado por pablopessoa

Probe de la forma que me decis, pero no funciona.
unaQuery esta declarada tanto en el datamodule1 como en el datamodule2;
si yo creo un procedimiento Datos de la forma que mencionas me sale un error al compilar del tipo "identificador no declarado", es decir, no encuentra "unaQuery".
Por las dudas aclaro que en el uses del form de busqueda estan agregados los dos datamodules.

Véase que yo tenía razón, habría que explicarlo mejor antes de ser sobervios con "No se, digo....".

Bueno, pablopessoa, lo que tendrías que hacer es ese procedimiento, pero agregarle un argumento. Explico:

Código Delphi [-]
//Suponiendo que tu Query es de tipo TADOQuery y los parámetros son de tipo Integer
procedure CargarDatos(var Q:TADOQuery; Valor1,Valor2,Valor3:Integer);
begin
  with Q do begin
    Parameters.ParamByName('parametro1').Value:=Valor1;
    Parameters.ParamByName('parametro1').Value:=Valor2;
    Parameters.ParamByName('parametro1').Value:=Valor3;
  end;
end;

Y desde el otro procedimiento:

Código Delphi [-]
if esBaseMia then
  CargarDatos(datamodule1.unaQuery,unValor1,unValor2,unValor3)
else
  CargarDatos(datamodule2.unaQuery,unValor1,unValor2,unValor3);

Saludos!!!!

Empezado por Caral

Hola
No veo ni entiendo la razón por la que no funcione.
Declaraste el procedimiento en su lista?.
De todos modos no me hagas mucho caso, de estas cosas no se.
BrunoBsso se ve que tiene la respuesta adecuada, ya casi la suelta.
Saludos

No se si la adecuada, pero sí una explicativa