Evitar nomes repetidos num listbox

Delphi

13/08/2008

Olá,

Eu uso ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.itemIndex]); para que qdo o usuario clique em um nome no listbox1 esse nome apareça no listbox2. Agora preciso que se o usuario clicar novamente no nome no listbox1 e esse nome já estiver no listbox2 ele não seja repetido novamente no listbox2. Como faço para evitar essa repetição? Obrigado.

Luiz


L_carlos

L_carlos

Curtidas 0

Respostas

Joaoshi

Joaoshi

13/08/2008

Colega, veja o código:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if ListBox1.Items.IndexOf(´Nome´) >= 0 then
     ShowMessage(´ja existe´);
end;


Espero ter ajudado.


GOSTEI 0
L_carlos

L_carlos

13/08/2008

Vlw Joaoshi.

Luiz


GOSTEI 0
POSTAR