Ou então usar algo mais elegante através de métodos do próprio TStringList.
if StringList1.IndexOf(Edit1.Text) <> 0 then
{ seu código aqui! }
Outra sugestão é usar a propriedade Duplicates para simplificar ainda mais o
tratamento de duplicidades quando adicionar strings a um TStringList.
Boa sorte.
Sds.
________________________________
> To: delphi-br@yahoogrupos.com.br
> From: smjjuli...@yahoo.com.br
> Date: Mon, 29 Dec 2008 10:36:18 -0300
> Subject: RES: [delphi-br] Dúvida com TStringList
>
> Outra alternativa, é antes de adicionar o texto no StringList você pode
>
> verificar se a função POS retornar maior que zero, caso sim é porque o texto
>
> já existe no StringList, então você não adiciona, o StringList tem a
>
> propriedade Text, então você faz o seguinte,
>
>
>
> IF Pos(Edit1.Text, StringList.text)> 0 THEN
>
>
>
> Begin
>
>
>
> ShowMessage(Existe...)
>
>
>
> End;
>
>
>
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
>
> nome de Guionardo Furlan
>
> Enviada em: sábado, 27 de dezembro de 2008 11:15
>
> Para: delphi-br@yahoogrupos.com.br
>
> Assunto: Re: [delphi-br] Dúvida com TStringList
>
>
>
> Usar a propriedade Duplicates do TStringList não resolve teu problema?
>
>
>
> 2008/12/15 deco0_07
>
>>:
>
>> Tem como eu descobrir o indice de um determinada linha do StringList?
>
>>
>
>> ex...
>
>>
>
>> tenho um edit com as linha que nao quero copiar
>
>> usar um for pra percorrer todas as linhas e num if verificar se a linha
>
>> que esta no stringlist é igual a que esta no edit
>
>>
>
>> o problema é que nao consigo pegar o indice dessa linha...
>
>> ja usei indexof, mas se tenho linhas com valores repetidos ele ignora
>
>> tbm...
>
>>
>
>> vlww's
>
>>
>
>>
>
>
>
> --
>
> Timeo hominem unius libri
>
> Cogito ergo sum - Carpe diem
>
>
>
> []s
>
> Guionardo Furlan
>
> http://guionardo.blogspot.com
>
>
>
> __________ Informação do NOD32 IMON 3719 (20081227) __________
>
>
>
> Esta mensagem foi verificada pelo NOD32 sistema antivírus
>
> http://www.eset.com.br
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
_________________________________________________________________
Organize seus contatos! O jeito mais fácil de manter a sua lista de amigos
sempre em ordem!
http://www.microsoft.com/windows/windowslive/events.aspx
