registros de um campo de uma tabela em um combobox s/ repeti

Delphi

02/06/2004

:?: Eu queria um comando que mandasse os registro de um certo campo de uma tabela para um combobox sem repeti-los, eu sei que isso depende da lógica de cada um mas agora depois desse soninho não estou com vontade de raciocinar mas estou precisando de comando urgentemente. valeu!!!!


Metalleiro_delphiano

Metalleiro_delphiano

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

02/06/2004

procedure TForm1.Button1Click(Sender: TObject);
Var
  C : Byte;
  Encontrou : Boolean;
begin
   While(Not(Query.Eof))Do
   Begin
     Encontrou := False;
     For C := 0 To ComboBox1.Items.Count -1 Do
     Begin
       If(QueryLINHA_NOME.AsString = ComboBox1.Text)Then
         Encontrou := True
       Else
         ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1;
     End;
     If(Not(Encontrou))then
       ComboBox1.Items.Add(QueryLINHA_NOME.AsString);
     Query.Next;
   End;
end;



GOSTEI 0
Poeta Noturno

Poeta Noturno

02/06/2004

Olá metalleiro.

Você pode usar a seguinte estrutura tbm

while not tabela.eof do
begin
if Combobox.Items.IndexOF(tabela.fieldbyname(´CAMPO´).AsString) = -1 then
Combobox.items.add(tabela.fieldbyname(´CAMPO´).AsString);
tabela.next
end;

Ok? Um abraço

Poeta Noturno


GOSTEI 0
POSTAR