Crear procedimiento !!!

[marcoszorrilla]

Ese código lo tienes que poner en el DataModulo correspondiente y luego hacer un "Uses", en cada formulario en donde pienses utilizarlo y despues símplemente llamarlo por su nombre:

Código Delphi [-]
 procedure Carga_Cuadro_Combinado();
begin
 DM.QrProv.Open;
 DM.QrProv.First;
 While not DM.QrProv.Eof do
    begin
     ComboBox1.Items.Add(DM.QrProvcodp.AsString);
     DM.QrProv.Next;
    end;
 DM.QrProv.Close;
end;

y en los formularios, símplemente:

Código Delphi [-]
 Carga_Cuadro_Combinado();

Un Saludo.

[Ledian_Fdez]

Al crear el procedimiento en el Data Module da el error undeclared identifier:'ComboBox1' y tampoco puedo decir

Código Delphi [-]
TallerForm.ComboBox1

por que va a ser usado no solo por TallerForm, sino por varios formularios.

Espero que me hallan entendido ahora.

Gracias de todas formas.
Saludos Ledian

[yusnerqui]

Está claro, creo que lo que puedes hacer es pasar el combo como parámetro del prcedimiento. Entonces:

Código Delphi [-]
procedure DM.Carga_Cuadro_Combinado(MyCombo:TComboBox);
begin
 QrProv.Open;
 QrProv.First;
 While not QrProv.Eof do
    begin
      MyCombo.Items.Add(DM.QrProvcodp.AsString);
      QrProv.Next;
    end;
 QrProv.Close;
end;

y para llamarlo desde el form

Código Delphi [-]
  DM.Carga_Cuadro_Combinado(ComboBox1);

Saludos.

[Ledian_Fdez]

Hola amigos:
Despues de guiarme por el consejo de yusnerqui me da el siguiente error: Undeclared identifier: TComboBox

Alguien pudiera ayudarme por favor.

gracias
Saludos Ledian.

[[basti]]

Cuando te de un tipo de error como ese, busca la unidad donde está definido en la ayuda de delphi y ponla en el uses del formulario o Datamodule. En este caso tienes que añadir en el uses de tu TDataModule la unidad 'stdCtrls'.

[yusnerqui]

Debes declarar la unit StdCtrls en el uses de tu DM.

Saludos

[yusnerqui]

Caramba Basti te me adelantaste, jejeje.

saludos

[Ledian_Fdez]

Amigos:
Ya no da el error, magnifico. He aprendido mucho aca con ustedes hoy, pero ... a la hora de llamar al procedimiento

Código Delphi [-]
DM.Carga_Cuadro_Combinado(ComboBox1);

en cualquiera de los formularios me da el error undeclared identifier:'Carga_Cuadro_Combinado'. Les aclaro que tengo en uso el DM


Con otra ayuda soluciono el problema.

Saludos Ledian

[[maeyanes]]

Pusiste la declaración del procedimiento en la sección public del DataModule?

Código Delphi [-]
TMiDataModulo = class(TDataModule)
  // Componentes y eventos
private
  { Private declarations }
public
  { Public declarations }
  procedure Carga_Cuadro_Combinado(ComboBox: TComboBox);
end;

Saludos...

[Ledian_Fdez]

Hola de nuevo

al poner la declaración del procedimiento en la sección public del DataModule

Código Delphi [-]
TMiDataModulo = class(TDataModule)
  // Componentes y eventos
private
  { Private declarations }
public
  { Public declarations }
  procedure Carga_Cuadro_Combinado(ComboBox: TComboBox);
end;

Me genera el siguiente error:
Unsatisfied forward or external declaration: 'TMiDataModulo.Carga_Cuadro_Combinado'


¿Qué estoy haciendo mal

Saludos.. Ledian