Nome dos Campos para ComboBox

Delphi

23/06/2004

Como faço para colocar em um combobox os nomes de todos os campos de uma tabela. Para criar depois uma consulta

Veja bem não é o conteúdo dos campos, mas sim os nomes dos campos.


Nilson

Ex:

Não é o nome do Cliente e sim o nome do campo que guarda o mome.


D7 + FB 1.5 + DbExpress


Nilson Junior

Nilson Junior

Curtidas 0

Respostas

Rmc1701e

Rmc1701e

23/06/2004

Segue um pequeno exemplo que preenche o combo com todos os campos da query. Funciona também para objetos table.

procedure TForm1.Button1Click(Sender: TObject);
var
  nCol: integer;
begin

  for nCol := 0 to Query1.FieldCount - 1 do
    ComboBox1.Items.Add(Query1.Fields[nCol].DisplayName);

end;



GOSTEI 0
Nilson Junior

Nilson Junior

23/06/2004

Funcionou beleza....


Falow, e muito obrigado

Nilson


GOSTEI 0
POSTAR