Existe alguna tecnica para no repetir codigo?

[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

[[Caral]]

Hola
Hay que hacerlo en delphi:
Te explico:

Código Delphi [-]
Begin
end;

Saludos

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

[[Delphius]]

Disculpen si me tiro a la pileta.
No vengo con la intención de señalar con el dedo, pero me extraña pablopessoa que desconozcas el uso de procedimientos, funciones, métodos, y la forma de declararlos. Sobre todo si estás empleando bases de datos.

Si estás iniciandote, es razonable y entendible que no domines el concepto. Pero de igual manera, si estás iniciandote en programación entonces cuesta entender que comiences a aplicar los conceptos relacionado con bases de datos. Por ello cuesta entender hasta donde llegan tus conocimientos.

Como he dicho al inicio, no vengo con la intención de señalar a nadie. Sólo expongo cierta curiosidad, si manejas el concepto de procedimientos con sólo ver el procedimiento de muestra de Caral deberías intuir que debes agregarle los parámetros puesto que necesita de un algo con que operar. El error que tu comentas es precisamente eso: la falta de los parámetros como lo ilustra Bruno.

Caral no tiene la culpa, es el eterno Novato al que tanto queremos. Y sale a la ayuda de cualquiera que los necesite... aunque de ello sepa poco.
Dicho sea de paso... ¡quien les habla es otro novato!
Caral no vive ni se dedica a la programación, es sólo su gran hobbie y pasión. Según recuerdo, amigo Carlos... recién te estas adaptando a la idea y al concepto de procedimientos y funciones. Vas bien

pablopessoa si tienes conocimientos medios de programación (sería útil que nos indiques más o menos hasta donde llegan tus conocimientos) quizá le puedas sacar más provecho a Delphi desde el lado POO. De lo que recuerdo de tus hilos y post veo que al parecer si los tienes. Si estás familiarizándote con el paradigma OO que mejor que potenciar los conceptos que llevandolos en este fantastico lenguaje.

El uso de procedimientos y funciones, es el primer paso para reducir el código como de estructurarlo, organizarlo y conseguir la reutilización. El siguiente paso sería llevar a un nivel más alto: aprovechar el gran poder de la POO... si aún no exploraste esta alternativa, creo que es un buen momento.

Saludos,