funcion recursiva para este codigo

[ingabraham]

Empezado por Casimiro Notevi

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;

unideclrade identifiquer TFieldType y DisplayLabel.
me sale este error

[ecfisa]

unideclrade identifiquer TFieldType y DisplayLabel.
me sale este error

Hola.

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


Saludos.

[Casimiro Noteví]

Empezado por ecfisa

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

[cloayza]

Dandole una vuelta el tema podria ser así..

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

[ingabraham]

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

[[Chris]]

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

[ingabraham]

ib, ibdatabase y ibtransaction. fb 2.0