evitar duplicidade no combobox

Question

colegas, como evitar que seja inserido mais de um registro igual em um combobox?tentei trabalhar com o metodo IndexOf mas nao cheguei a lugar algum...abra�os!...

Pestana_ · Answer

voc� est� est� preenchendo o combo atrav�s de um select? caso sim, fa�a esse tratamento no select.agora para evitar duplicidade no proprio combo eu n�o sei.flw....

Pestana_ · Answer

[quote:b5bb6efdb5=�mahdak�]tentei trabalhar com o metodo IndexOf mas nao cheguei a lugar algum...[/quote:b5bb6efdb5]se eu n�o me engano o [i:b5bb6efdb5]IndexOf[/i:b5bb6efdb5] retorna o indice do item....

Jose Almeida · Answer

Ol� amigo.Use esta fun��o:function StrIsInList(Lista:TStrings;Str:string): boolean;varCont:integer;beginResult:=false;for Cont:=0 to  Lista.Count-1 doif Str = (Lista.Strings[Cont])thenbeginResult:=true;Exit;end;end;procedure TForm1.Button1Click(Sender: TObject);beginif not(StrIsInList(ComboBox1.Items,Edit1.Text)) thenComboBox1.Items.Add(Edit1.Text);end;Se o String n�o est� no ComboBox, ent�o adiciona....

Micheus · Answer

Um exemplo utilizando o IndexOf citado pelo colega [b:0858c9c199]Pestana_[/b:0858c9c199]:

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then
    ComboBox1.Items.Add(ComboBox1.Text);
end;

boa [b:0858c9c199]micheus[/b:0858c9c199] deste jeito resolve o problema do mahdak.

flw.

Pestana_ · Answer

[quote:0858c9c199=�micheus�]Um exemplo utilizando o IndexOf citado pelo colega [b:0858c9c199]Pestana_[/b:0858c9c199]:[code:1:0858c9c199]procedure TForm1.ComboBox1Exit(Sender: TObject);begin  if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then    ComboBox1.Items.Add(ComboBox1.Text);end;[/code:1:0858c9c199][/quote:0858c9c199]boa [b:0858c9c199]micheus[/b:0858c9c199] deste jeito resolve o problema do mahdak.flw....

F�rum evitar duplicidade no combobox #351384