Tb resolve. Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 28 Nov 2007 17:43:22 -0400Subject: RES: [delphi-br] Array E que tal for com break?[]sTopolniak.De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Emnome de BandaLemuelEnviada em: quarta-feira, 28 de novembro de 2007 15:58Para: [EMAIL PROTECTED]: Re: [delphi-br] Arrayok.. Obrigado pela dica.----- Original Message ----- From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Sent: Wednesday, November 28, 2007 4:45 PMSubject: Re: [delphi-br] ArrayCara, ao invés de usar o FOR usa o WHILE ... + ou - assim:var bAchei : boolean;x := 0;bAchei := false;while ((not bAchei) and (x<Length(array)-1)) do beginbAchei := (array[x]=valor);inc(x);endneste caso se o array tem 1000 elementos e o valor que procuras está noquinto elemento, só vai executar o loop 5 vezes ...Alessandro DUARTE de MoraesA.C. Santa Casa do Rio Grande.http://www.santacasarg.com.br----- Original Message ----- From: BandaLemuel To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Sent: Wednesday, November 28, 2007 9:23 AMSubject: [delphi-br] ArrayListaTem alguma forma de saber se existe um determinado valor em um array sem terque passar por ele inteiro ???posso usar assimfor x := 0 to length ( array) - 1 dobeginif array[x] = valor thenresult := Trueelseresult := False ; endMas queria algo mais pratico....vlw..Wesley[As partes desta mensagem que não continham texto foram removidas]-------------------------- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] <mailto:spam%40vetorial.net> Chave de Identificação: 54568,474d626d294911802914784 [As partes desta mensagem que não continham texto foram removidas]----------------------------------------------------------No virus found in this incoming message.Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1155 - Release Date: 27/11/200720:30[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] _________________________________________________________________ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html