[Ajuda]ComboBox

[CanonTG]

Boas, tenho uma comboBox que vai ter um código e não quero que apareçam códigos repetidos na combo. Fiz isso com o seguinte código embora nem sempre dá certo.

var
existe,i:Integer;

begin

existe :=1;
//preencher combo codigo
Query1.SQL.Clear;
Query1.SQL.Text :='select cod from oportunidades';
Query1.Open;
Query1.First;

     while not (Query1.Eof) do
     begin
     for i := 0 to ComboBox1.Items.Count -1 do
        begin
          //showmessage(ComboBox1.Items[i]);
          if(Query1.FieldByName('cod').AsString = ComboBox1.Items[i]) then
               existe:=0;

        end;

      if(existe = 1)then
            ComboBox1.Items.Add(Query1.FieldByName('cod').AsString);

            Query1.Next;
     end;

[CrominhO]

Porque é que não retiras os Duplicados logo na entrada ?

Query1.SQL.Clear;
Query1.SQL.Text :='Select Distinct(cod) from oportunidades';
Query1.Open;
Query1.First;

Edited March 21, 2014 by CrominhO

[CanonTG]

Obrigado 🙂

[CrominhO]

Obrigado 🙂

Nada amigo tamos cá é mesmo para isso 🙂

podes é fazer Likes lol 😁

Mas olha uma coisa, eu sinceramente não gosto muito do ADD porque nunca sabemos bem onde anda o Cursor,

prefiro sempre o Append que acrescenta ao fim da Combo 🙂

ComboBox1.Items.Append(Query1.FieldByName('cod').AsString);

Isto é só uma opinião pessoal 🙂

Edited March 21, 2014 by CrominhO