funcion recursiva para este codigo
 

necesito reducir este codigo. con una funcion.
el sgt codigo agrupa datos para cargarlos en combobox. para muchos combox con caracteristicas similares.

si alguien me puede ayudar

Código Delphi [-]


procedure TEstadistica.CargarDatosCombox;
begin

 CBDpto.Clear;
 CBDpto.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Clear;
   Sql.Add('Select DEPARTAMENTO as Dato From NACIMIENTOS Group By DEPARTAMENTO ');
   Open;
   If RecordCount <> 0 Then Begin
     First;
     While not eof do Begin
       CBDpto.Items.Add(fieldbyname('Dato').AsString);
       Next;
     End;
  End;
 End;
  CBDpto.Text  :='TODOS' ;


//==============================================================================

 CBMunicipio.Clear;
 CBMunicipio.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Clear;
   Sql.Add('Select MUNICIPIO as Dato From NACIMIENTOS Group By MUNICIPIO ');
   Open;
   If RecordCount <> 0 Then Begin
     First;
     While not eof do Begin
       CBMunicipio.Items.Add(fieldbyname('Dato').AsString);
       Next;
     End;
  End;
 End;
  CBMunicipio.Text  :='TODOS' ;

//==============================================================================

 CBAreaNacimiento.Clear;
 CBAreaNacimiento.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Clear;
   Sql.Add('Select AREA_NACIMIENTO as Dato From NACIMIENTOS Group By AREA_NACIMIENTO ');
   Open;
   If RecordCount <> 0 Then Begin
     First;
     While not eof do Begin
       CBAreaNacimiento.Items.Add(fieldbyname('Dato').AsString);
       Next;
     End;
  End;
 End;
  CBAreaNacimiento.Text  :='TODOS' ;


//============================================================================== y siguen con otros mismos dif campos
end;

Tengo un procedure para rellenar combobox, mira si te sirve:

Código Delphi [-]
type TiposCampo = set of TFieldType;

procedure RellenarCombo( DS:TDataSet; tcTiposCampo:TiposCampo; var cbCombo:TComboBox);

Código Delphi [-]
procedure RellenarCombo( DS:TDataSet; tcTiposCampo:TiposCampo; var cbCombo:TComboBox);
(* Rellena los elementos de un combobox con los campos de un dataset cuyos
   tipos estén en la lista que se le pasa *)
var
  iX : integer;
begin
  cbCombo.Items.Clear;
  for iX := 0 to DS.FieldCount - 1 do
    with DS.Fields[iX] do
      if (FieldKind = fkData) and (DataType in tcTiposCampo) then
        cbCombo.Items.AddObject(DisplayLabel, DS.Fields[iX]);
    cbCombo.ItemIndex := 0;
end;

Hola

Código Delphi [-]
procedure TEstadistica.CargarDatosCombox;
begin
 CBDpto.Clear;
 CBDpto.Items.Add('TODOS');
 CBMunicipio.Clear;
 CBMunicipio.Items.Add('TODOS');
 CBAreaNacimiento.Clear;
 CBAreaNacimiento.Items.Add('TODOS');
 With DMDatos.IBConsultaSql do Begin
   close;
   Sql.Text:= 'Select DEPARTAMENTO, MUNICIPIO, AREA_NACIMIENTO '+
              ' From NACIMIENTOS Group By DEPARTAMENTO, MUNICIPIO, AREA_NACIMIENTO ';
   Open;
   If RecordCount <> 0 Then Begin
   While not eof do Begin
   CBDpto.Items.Add(fieldbyname('DEPARTAMENTO').AsString);
   CBMunicipio.Items.Add(fieldbyname('MUNICIPIO').AsString);
   CBAreaNacimiento.Items.Add(fieldbyname('AREA_NACIMIENTO').AsString);
   Next;
   End;
   End;
  End;
  CBDpto.Text  :='TODOS' ;
  CBMunicipio.Text  :='TODOS' ;
  CBAreaNacimiento.Text  :='TODOS' ;
end;

Saludos

gracias Novato Premium
pero ese codigo tambien se me extenderia mucho,. por que son casi 50 combo.
una funcion recursiva si me ayudaria.

unideclrade identifiquer TFieldType y DisplayLabel.
me sale este error

Código Delphi [-]

use  IBQuery;



procedure RellenarCombo( DS:TIBQuery; var cbCombo:TComboBox);
var
  iX : integer;
begin
 cbCombo.Items.Clear;
 cbCombo.Items.Add('TODOS');
 If DS.Recordcount <> 0 then
  begin
      DS.First;
      While not DS.eof do
      Begin
        cbCombo.Items.Add(DS.Fields[iX].AsString);
        DS.Next;
       end;
  end;

    cbCombo.ItemIndex := 0;
end;



   DMDatos.ConsultaSql('Select DEPARTAMENTO as Dato From NACIMIENTOS Group By DEPARTAMENTO ');
   RellenarCombo(DMDatos.IBConsultaSql,CBDpto);

listo, pal k le sirva

Hola.

En este hilo tuviste la misma duda. Nuevamente tenes que incluir la unit DB. ;)


Saludos.

Pues sí, a veces se olvidan esos detalles, son tantas cosas :)

Dandole una vuelta el tema podria ser así.. :D

Consulta

[delphi]

Código Delphi [-]
procedure RellenarCombo( DS:TIBQuery; AFieldname:String; var cbCombo:TComboBox);
var
  iX : integer;
begin
     cbCombo.Items.Clear;
     cbCombo.Items.Text:= DS.FieldByName(AFieldName).AsString;

    cbCombo.ItemIndex := 0;
end;


   DMDatos.ConsultaSql('SELECT ''TODOS''||ASCII_CHAR(13)||LIST(DEPARTAMENTO,ASCII_CHAR(13)) as DATO FROM (SELECT DISTINCT DEPARTAMENTO FROM NACIMIENTOS))');

   RellenarCombo(DMDatos.IBConsultaSql,'DATO',CBDpto);

Pues eso nada mas...

Este codigo hace uso de la funccion LIST que es de Firebird... Si es otro DBMS creo que no serviria...:)

k barbaridad de codigo, nunk habia visto esto. gracias cuando pueda lo probare y analizare. me interesa sabes este tipo de comandos.

Que componentes utilizas para hacer la conexión a Firebird? Si utilizas FIBPlus hay una función en los componentes que te puede ayudar mucho en la tarea. Pero además necesitarás utilizar la función LIST incluida en Firebird 2.1 o superior.

Saludos,
Chris

ib, ibdatabase y ibtransaction. fb 2.0