Eduardo,
Faz assim:
Var Indice : Integer;
begin
Indice := AnsiIndexText('35', SeuVetorAqui);
If Indice = -1 then begin
ShowMessage('O vetor não possui o valor 35');
End Else Begin
ShowMessage('O valor 35 está no indice: ' + IntToStr(Indice));
End;
End;
Douglas Uesato
Depto. de Informática
Concentro Marcas Ltda
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em
nome de Valfrid-Ly Silva Couto
Enviada em: sexta-feira, 13 de abril de 2007 08:34
Para: [EMAIL PROTECTED]
Assunto: [SPAM] Re: [delphi-br] Pesquisa rápida em array. Tem como?
Se você garante que seu array estará sempre ordenado, use um algorítimo de
pesquisa binária, que é o que os índices fazem.
Eduardo Paci Galvão <[EMAIL PROTECTED]> escreveu: Pessoal,
Meu vetor [vet] possui os seguintes itens, sempre
em ordem crescente:
10, 21, 35, 90, 136, 200....
Existe alguma maneira prática de se verificar
se o número 35, por exemplo, existe neste vetor?
(sem precisar varrer os itens, um a um?)
Saudações,
Eduardo Paci Galvão
Bacharel em Engenharia Elétrica - UFMG
Analista de Sistemas
www.egalvao.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
