Como exibir os nomes de CAMPOS numa ComboBox?

Delphi

07/10/2007

Tenho uma tabela Employee com os seguintes campos: Numero, Nome, Sobrenome e Salario. Estou tentando carregar o nome dos campos na combobox, mas não estou consegguindo. Alguem poderia me ajudar?
Tentei o código abaixo, mas não deu certo:
while not (dstEmployee.Eof) do
 begin
  cbxNome.Items.Add(dstEmployee.FieldList[i].AsString);
  dstEmployee.Next;
 end;



Soueusei26

Soueusei26

Curtidas 0

Respostas

Ruysalles

Ruysalles

07/10/2007

while not (dstEmployee.Eof) do
begin
cbxNome.Items.Add(dstEmployee.FieldByName(´Numero´).AsString + dstEmployee.FieldByName(´Nome´).AsString +dstEmployee.FieldByName(´Sobrenome´).AsString + dstEmployee.FieldByName(´Salario´).AsString)) ;
dstEmployee.Next;
end;


GOSTEI 0
Joaoshi

Joaoshi

07/10/2007

Colega, se entendi direito.

For nX := 0 to SuaTabela.FieldCount -1 do
Memo1.Lines.add(UpperCase(SuaTabela.Fields[nX].FieldName));

Espero ter ajudado.


GOSTEI 0
Soueusei26

Soueusei26

07/10/2007

Obrigado João, funcionou assim:

for i := 0 to dstEmployee.FieldCount -1 do
 begin
    cbxNome.Items.Add(UpperCase(dstEmployee.FieldDefs[i].Name));
 end;



GOSTEI 0
POSTAR