Existe alguna tecnica para no repetir codigo?

[[Caral]]

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 {se busca en la base de mis datos}
   begin
       with datamodule1 do
       begin
       Datos;   
       end
   end
else {se busca en la base de las sucursales}
        with datamodule2 do
        begin 
           Datos;
        end;
end;

No se, digo.....
Saludos

[BrunoBsso]

Empezado por Caral

Hola
creo un procedimiento:

...

Luego lo llamo:

...


No se, digo.....
Saludos

Y tu procedimiento no conoce al Query, entonces te da error en diseño.
No se, digo....

[[Caral]]

Hola
Osea te brincas el:

Código Delphi [-]
  with datamoduleX do

Ya que los query se llaman EXACTAMENTE IGUAL en ambos datamodule.
Lo único que varia es con que datamodule trabaja y para eso esta el código anterior.
Que dices al respecto?
Saludos

[BrunoBsso]

Empezado por Caral

Hola

....

Que dices al respecto?
Saludos

Digo que tu procedimiento no tenia la cláusula with.
No se, digo.....

[[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

[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.

Edit : Pido disculpas por no haber agradecido el interes en darme una respuesta, sin importar cual fuese el resultado. Para ser sincero, estoy tan metido en resolver esto que se me paso.
Espero que cuente el "mas vale tarde que nunca" y te doy mil gracias por responderme.
Saludos!

[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

[pablopessoa]

Les agradezco mucho a los dos por la ayuda.
Mas alla de la "sutiles replicas" que hayan tenido, la solucion recomendada por
BrunoBsso compila bien, y de seguro funcione ( ya se me caen los ojos asi que la voy a completar mañana y la pruebo :S).
Lo cual no desmerece la ayuda prestada por Caral.
Si me permiten una sugerencia para el futuro, ni la soberbia ( no todos manejamos el mismo nivel de programacion) ni los botines afilados ( sobre todo para un usuario relativamente nuevo como nosotros) cooperan al buen desempeño de la comunidad en el foro.
Es de saber que al momento de inscribirse en un foro, te encuentres con gente a un mismo nivel, a un nivel medio y a un nivel principiante (sin importar la cantidad de post que hayan hecho). La clave es tener paciencia, ayudar si se puede y se tiene ganas y por sobre todo, tratar de mantener cierta "camaraderia" entre nosotros.
Nuevamente gracias a los dos, saludos y BrunoBsso te comento que soy de La Plata, asi que casi que somos vecinos jajaajaj.

[BrunoBsso]

Empezado por pablopessoa

Les agradezco mucho a los dos por la ayuda.
Mas alla de la "sutiles replicas" que hayan tenido, la solucion recomendada por
BrunoBsso compila bien, y de seguro funcione ( ya se me caen los ojos asi que la voy a completar mañana y la pruebo :S).
Lo cual no desmerece la ayuda prestada por Caral.
Si me permiten una sugerencia para el futuro, ni la soberbia ( no todos manejamos el mismo nivel de programacion) ni los botines afilados ( sobre todo para un usuario relativamente nuevo como nosotros) cooperan al buen desempeño de la comunidad en el foro.
Es de saber que al momento de inscribirse en un foro, te encuentres con gente a un mismo nivel, a un nivel medio y a un nivel principiante (sin importar la cantidad de post que hayan hecho). La clave es tener paciencia, ayudar si se puede y se tiene ganas y por sobre todo, tratar de mantener cierta "camaraderia" entre nosotros.
Nuevamente gracias a los dos, saludos y BrunoBsso te comento que soy de La Plata, asi que casi que somos vecinos jajaajaj.

Yo reacciono así ante la soberbia siempre. No me creo el gran programador del milenio, pero sé que no soy un novato total; ver gente con un rango más elevado que otros respondiendo con soberbia me desagrada totalmente (en foros y en la vida real). Cuando uno es soberbio, para mí no merece buen trato a menos que se retracte de eso.
A lo segundo que remarqué, considerando que sos de La Plata y que estás aprendiendo Delphi, no puedo evitar la idea de que estás estudiando en la UNLP justamente en la facu de Informática.
Ya sabés, cuando necesites ayuda en Delphi me avisas y yo intento solucionarte los problemas, pero no siempre voy a saber todo.
Si estás estudiando ahí, cuando tengas a Bertone no te hagas amigo suyo, después te usa para demostrar cosas y casi siempre quedas mal (no es experiencia propia por suerte).
Saludos!

[[Caral]]

Hola
Me alegra que obtuvieras la respuesta adecuada, ademas de ver tu educacion.
Como siempre he dicho, tal vez si me dedicara a la programación o por lo menos algo supiera, ayudaría mas, o trataría.
Con relación a la soberbia: Puede que lo sea algo, tal vez la edad ya me lo permita.
No se en Argentina que significa (No se, digo..).
Pero en castellano esta bien claro.
BrunoBsso: Siempre es un gusto ver código de los que saben, así tratare de seguir aprendiendo de este mi pasatiempo.
Saludos

[Casimiro Noteví]

El compañero Caral ha intentado ayudar. Cualquiera puede equivocarse en un momento dado o no dar una solución correcta, pero creo que nadie se molesta en dar una solución equivocada a propósito, siempre se hace de buena fé y con la mejor intención del mundo.
Debemos tener paciencia unos con otros, nadie es perfecto.

[BrunoBsso]

Empezado por Casimiro Notevi

El compañero Caral ha intentado ayudar. Cualquiera puede equivocarse en un momento dado o no dar una solución correcta, pero creo que nadie se molesta en dar una solución equivocada a propósito, siempre se hace de buena fé y con la mejor intención del mundo.
Debemos tener paciencia unos con otros, nadie es perfecto.

Nunca me interesó que la respuesta haya sido incorrecta.
Si no fuese por ese malintencionado "No se, digo...." yo hubiese contestado con toda amabilidad para explicar el error y mostrar la solución.
Sin embargo, la pedantería de ese "No se, digo...." me hizo saltar la térmica y a cosas así reacciono mal.
Así que repito: mi reacción no se debe a que alguien, en un intento de ayudar, lo haga mal; se debe a la soberbia, y mas cuando es infundada.

[[Caral]]

Hola
Seguir con esto es penoso y no creo que te haga quedar muy bien ya que la expresión gramaticalmente hablando esta perfectamente bien empleada.
Seguro as pasado un mal día, así sucede aveces, no estoy resentido ni tengo mala voluntad hacia tu persona.
Te pido humildemente que si te sentiste ofendido por mis palabras me disculpes.
Saludos

[BrunoBsso]

Empezado por Caral

Hola
Seguir con esto es penoso y no creo que te haga quedar muy bien ya que la expresión gramaticalmente hablando esta perfectamente bien empleada.
Seguro as pasado un mal día, así sucede aveces, no estoy resentido ni tengo mala voluntad hacia tu persona.
Te pido humildemente que si te sentiste ofendido por mis palabras me disculpes.
Saludos

No te confundas, yo no seguí con esto. Esa última respuesta fue para Casimiro Notevi, o sea que la estaba escribiendo hace 15 minutos.
No era una continuación de nada, era una explicación a una persona que llegó tarde al tema.
Acepto tus disculpas, bien por vos pedir disculpas cuando ofendés a alguien
Nos vemos!
PD: creo que acá termina la discusión, si alguien quiere que llueva sobre mojado...
PD2: hay una edad predeterminada para tener permiso de ser soberbio? no sabía

[Casimiro Noteví]

Bueno, amigo, por eso pablopessoa y yo mismo hemos comentado lo de tener paciencia... te explico:
Aquí somos muchas personas de muchos países, en cada país (incluso en cada región y ciudad) existen formas de hablar, "modismos", costumbres, etc. y tal y como ha comentado Caral, en español (de españa) no es ninguna soberbia ni pedantería, se usa más bien justo al contrario, como para decir: "mis conocimientos no llegan a tanto, no sé, digo yo que debe ser así".
A mí al principio me pasaron varias anécdotas parecidas con comentarios de otros compañeros que me sentaron mal porque yo lo veía con mi óptica del sur de españa, pero una vez explicado... me di cuenta que son simplemente formas de hablar de cada lugar del mundo.
El compañero Caral lleva años en clubdelphi y en otros foros ayudando a todo el que ha podido, siempre lo hemos conocido como el "eterno novato", ha escrito varios tutoriales, documentos de creación de programas paso a paso y todos lo conocemos, sabemos que es una persona humilde, paciente y de gran corazón.

En fin, que todo ha sido un malentendido, seguro que estando "cara a cara" esto no hubiese ocurrido, pero así aprendemos todos, ya te digo, a mí me pasó varias veces cosas peores porque yo soy (o era) bastante brusco hablando y soltaba "tacos" e insultos... y luego me daba cuenta que había sido un malentendido por mi parte.

Y nada más, no quiero ser más pesado , que hay que tener paciencia y paciencia y paciencia

[[Caral]]

Hola
Amigo, siempre hablando bien de mi, sabes que el honor es mio.
Ya a mi edad estas cosas no tienen importancia, yo también tuve 21 años, hace mucho.
Te agradezco mucho tus comentarios amigo.
Saludos
PD: Otra vez comprobé que sigo siendo Novato, algún día aprenderé