Procedures Genericos con Parametros de Controles....

[Kenobi]

Buenas Amigos....

Como el titulo dice lo que quieero hacer es procedures que me permitan hacer "cosas" sobre controles diversos .... por ejemplo quiero hacer un procedure que llene un Tcombobox con elementos N , la idea es que yo defino el procedure y como parametro lleva el comboBox al que quiero asignar los valores .... intento con :

Código Delphi [-]
Procedure llenar_combo(Combo:tcombobox);
begin

.........
....

end;

el problema es que no acepta el tipo TcomboBox asi mismo me gustaria con consultas y tablas

Código Delphi [-]
Procedure lo_que_sea(consulta:TdataSet);
begin

.........
....

end;

y da error ...

La pregunta es cual es el "tipo" de parametro correcto en estos casos. ......



Gracias por adelantado ......

[[cHackAll]]

Código Delphi [-]
procedure Ocultar(Combo: TComboBox);
begin
 Combo.Visible := False;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Ocultar(ComboBox1);
end;

Que extraño a mi me funcionó siempre a la perfección... será que es la version de Delphi, o que estas haciendo algo mal???

No olvides los conceptos de privado, protegido y publico, en la programación orientada a objetos, talvez por allí viene el problema.

Saludos.

[jhonny]

Estoy de acuerdo con cHackAll, por allí debe ser el problema, aún asi si nos dijeras el error que te muestra, quizá sea mas sencillo entender lo que te sucede.

[Kenobi]

procedure TForm1.ocultar_combo(combo:tcombobox);
begin
combo.visible:=false;
end;


[Error] Unit1.pas(25): Undeclared identifier: 'tcombobox'

que tal y con el codigo anterior ......

SEra que falta algo en los Uses ......

[jhonny]

Bueno, pues parece que tu mismo haz dado la respuesta... verifica que en el uses este referenciada la unidad StdCtrls .

[[cHackAll]]

Ah pues en la unidad en que declaras tu función añadele a la clausula USES la unidad "StdCtrls"

Ej.

Código Delphi [-]
uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ....

[[cHackAll]]

Empezado por jhonny

Bueno, pues parece que tu mismo haz dado la respuesta... verifica que en el uses este referenciada la unidad StdCtrls .

Ahora si debo decirlo jhonny... esto es el lejano oeste en duelo por el "teclado" más rapido.

Saludos veloces.

[jhonny]

Empezado por cHackAll

Ahora si debo decirlo jhonny... esto es el lejano oeste con el "teclado" más rapido.

Bueno, cHackAll no sabes el sabor a dulce que tengo en mi boca , esto de la venganza es genial .

[Kenobi]

Gracias amigos , otra cosa


como hago para referencias un query como parametro


Procedure lo_que_sea(Query:tdataset);
begin

end;

en todo caso lo que quiero pasar es un conjunto de datos consulta, tabla etc .....

cual seria la unidad a incluir en el uses .....

[[egostar]]

Empezado por cHackAll

Ahora si debo decirlo jhonny... esto es el lejano oeste en duelo por el "teclado" más rapido.

Saludos veloces.

Empezado por jhonny

Bueno, cHackAll no sabes el sabor a dulce que tengo en mi boca , esto de la venganza es genial .

Hey, parece que jhonny quiere regresar al ring.....

A ver quien es el mas rápido en soltar el primer golpe

Salud OS

[[eduarcol]]

cuando quieras saber la unidad de un componente busca la ayuda del mismo ahi te dice de donde sale, el caso que nos ocupa es el DB

Empezado por Ayuda de Delphi

TDataSet is the base class for all dataset components that represent data in rows and columns.

Unit

DB

[jhonny]

Empezado por egostar

Hey, parece que jhonny quiere regresar al ring.....
A ver quien es el mas rápido en soltar el primer golpe

Nada de eso , ahora soy un tipo pacifico, dedicado unica y exclusivamente al periodismo sano .

[[eduarcol]]

Empezado por jhonny

Nada de eso , ahora soy un tipo pacifico, dedicado unica y exclusivamente al periodismo sano .

Tranquilo, si regreso Rocky no veo porq tu no puedas hacerlo

[Kenobi]

en efecto es asi .....


Gracias a todos .......


Por cierto yo tambien "Naci en esta rivera del Arauca ......"
Saludos desde Barquisimeto ......

[[cHackAll]]

Empezado por jhonny

Nada de eso , ahora soy un tipo pacifico, dedicado unica y exclusivamente al periodismo sano .

Periodismo sano y veloz debo añadir... o es que ya fueron muchos los golpes recibidos en el ring?

[[eduarcol]]

Empezado por Kenobi

en efecto es asi .....


Gracias a todos .......


Por cierto yo tambien "Naci en esta rivera del Arauca ......"
Saludos desde Barquisimeto ......

epale Guaro como estamos, ya habemos cuatro occidentales por estos lados, Jure es de Valencia, yo soy de Maracaibo

[Kenobi]

bueno que cresca la comunidad de este lenguaje en el Pais .....


Un dia nos vemos y nos tomamos un vergero de Cervezas ....

Gracias por la ayuda .....

[jhonny]

Empezado por cHackAll

Periodismo sano y veloz debo añadir... o es que ya fueron muchos los golpes recibidos en el ring?

La verdad es que fueron pocos, pero vinieron del campeon de peso super pesado del campeonato, osea de egostar , la verdad es que me gusta mas el periodismo, asi puedo tirar "pullas" sin miedo a que me ataquen , y cuando lo hacen pues los hago salir mal en PPV .

[[eduarcol]]

Empezado por Kenobi

bueno que cresca la comunidad de este lenguaje en el Pais .....


Un dia nos vemos y nos tomamos un vergero de Cervezas ....

Gracias por la ayuda .....

"Miarma mijito", vamos a ponerlo mejor porq "no me gusta salir con menores"

[[egostar]]

Empezado por Kenobi

Un dia nos vemos y nos tomamos un vergero de Cervezas ....

Empezado por eduarcol

"Miarma mijito", vamos a ponerlo mejor porq "no me gusta salir con menores"

A ver, los voy a remitir a la guia de estilo del foro, que es eso pues, puro doble sentido aqui......

Salud OS