Res: RES: [delphi-br] Array
GOTO ?!?!?!?!? só pra linguagens tipo basic, em q se numerava as linhas de programação e mesmo assim dava pra naum usar, agora numa linguagem estruturada como o object pascal do delphi, é totalmente obsoleto Kaputz, Robson Skype: kaputz_gri Keep the Dream Alive - Mensagem original De: Davi Eduardo Borges Wall [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 29 de Novembro de 2007 11:52:19 Assunto: RES: [delphi-br] Array Esses dias em uma aula de S.O me deparei com uma explicação muito interessante para justificar o não uso do GOTO. De acordo com o professor de S.O, quando fazemos um IF ou um Loop (não sei agora call de procedure) O compilador coloca os desvios da instrução na mesma paginação em memória virtual. Consequentemente quando isso é carregado para memória real, tudo fica dentro da mesma página. Agora quando utilizamos Goto o compilador não consegue garantir que o desvio será dentro da mesma pagina, ocasionando que o sistema solicitará blocos de instruções de outras paginas tornando o sistema mais lento. Agora como o processador e acesso a memória é algo super rápido (milisegundos ou talvez microsegundos) nem sempre há como notar a diferença, somente em processos super pesados. Bom ta aí uma boa explicação para o não uso desse carinha... Seria interessante saber a opinião de alguém que entenda de S.O em baixo nível. []'s De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Joao Morais Enviada em: quinta-feira, 29 de novembro de 2007 11:31 Para: [EMAIL PROTECTED] os.com.br Assunto: Re: [delphi-br] Array Marcos Douglas wrote: Break, Exit e até mesmo GoTo podem e devem ser utilizados quando necessário! Vai depender do que se está buscando ao fazer o algoritmo: Velocidade vs Legibilidade. Então Marcos, bom te ver por aqui novamente. Concordo com o Exit, até que concordo com o break, mas estou até hoje pra ver um uso inteligente para o goto. Você cita algum? -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Array
Favor retirar meu nome da lista ... Agradeço muito .. Cícero Fernandes Eng. Eletricista Eng. de Segurança ( (0xx 47) 3521 2988 / 9191-6226 * [EMAIL PROTECTED] www.fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 28 de novembro de 2007 21:07 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Array Prioridade: Alta 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 (xLength(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 praticovlw..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 Links do Yahoo! Grupos No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1157 - Release Date: 28/11/2007 12:29 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1157 - Release Date: 28/11/2007 12:29
Res: RES: [delphi-br] Array
GOTO ?!?!?!?!? Kaputz, Robson Skype: kaputz_gri Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie Chaplin . Keep the Dream Alive - Mensagem original De: Davi Eduardo Borges Wall [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 29 de Novembro de 2007 11:52:19 Assunto: RES: [delphi-br] Array Esses dias em uma aula de S.O me deparei com uma explicação muito interessante para justificar o não uso do GOTO. De acordo com o professor de S.O, quando fazemos um IF ou um Loop (não sei agora call de procedure) O compilador coloca os desvios da instrução na mesma paginação em memória virtual. Consequentemente quando isso é carregado para memória real, tudo fica dentro da mesma página. Agora quando utilizamos Goto o compilador não consegue garantir que o desvio será dentro da mesma pagina, ocasionando que o sistema solicitará blocos de instruções de outras paginas tornando o sistema mais lento. Agora como o processador e acesso a memória é algo super rápido (milisegundos ou talvez microsegundos) nem sempre há como notar a diferença, somente em processos super pesados. Bom ta aí uma boa explicação para o não uso desse carinha... Seria interessante saber a opinião de alguém que entenda de S.O em baixo nível. []'s De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Joao Morais Enviada em: quinta-feira, 29 de novembro de 2007 11:31 Para: [EMAIL PROTECTED] os.com.br Assunto: Re: [delphi-br] Array Marcos Douglas wrote: Break, Exit e até mesmo GoTo podem e devem ser utilizados quando necessário! Vai depender do que se está buscando ao fazer o algoritmo: Velocidade vs Legibilidade. Então Marcos, bom te ver por aqui novamente. Concordo com o Exit, até que concordo com o break, mas estou até hoje pra ver um uso inteligente para o goto. Você cita algum? -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Array
A função do break é terminar um laço de forma anormal.
[]'s
Topolniak.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rubem Nascimento da Rocha
Enviada em: quinta-feira, 29 de novembro de 2007 11:48
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] Array
Prioridade: Alta
Apenas uma ratificação. Não é só no C++ mas na linguagem C mesmo existe
break. E outra, particularmente, num vejo qual o fascínio que um break pode
exercer. Em Object Pascal, um trecho de código desse pode muito ter o mesmo
efeito reescrito da seguinte maneira:
while True do
begin
.
.
if i = 5 then Break;
.
.
end;
Isso sim, eu acho mais elegante e coerente do que um for definido onde não
se sabe de onde e para onde se quer ir!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 29 Nov 2007 09:25:51 -0400
Subject: RES: [delphi-br] Array
E no caso do C++ onde é possível fazer um for sem as condições e colocar uma
sentinela para Pará-lo.
For (; ;)
{
If (i==5) break;
}
Eu fico fascinado com o poder do c++ em fazer isso. E agora fico sabendo que
é pog?
[]s
Topolniak.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alessandro DUARTE de Moraes
Enviada em: quinta-feira, 29 de novembro de 2007 07:28
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Break é gambiarra! Meu professor de Estruturas de Programação dava zero na
nota do trabalho se visse algum break no programa.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Luciano Topolniak
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 6:43 PM
Subject: RES: [delphi-br] Array
E que tal for com break?
[]'s
Topolniak.
De: delphi-br@yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
] Em
nome de BandaLemuel
Enviada em: quarta-feira, 28 de novembro de 2007 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
ok.. Obrigado pela dica.
- Original Message -
From: Alessandro DUARTE de Moraes
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 4:45 PM
Subject: Re: [delphi-br] Array
Cara, ao invés de usar o FOR usa o WHILE ... + ou - assim:
var bAchei : boolean;
x := 0;
bAchei := false;
while ((not bAchei) and (x
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 9:23 AM
Subject: [delphi-br] Array
Lista
Tem alguma forma de saber se existe um determinado valor em um array sem ter
que passar por ele inteiro ???
posso usar assim
for x := 0 to length ( array) - 1 do
begin
if array[x] = valor then
result := True
else
result := False ;
end
Mas 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]
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/2007
20:30
[As partes desta mensagem que não continham texto foram removidas]
[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]
Chave de Identificação: 54568,474df075170179425078721
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
_
Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao
Messenger!
http://spaces.live.com/signup.aspx
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
Res: RES: [delphi-br] Array
Ola
Na palavra AsInteger parece-me que ficou com um espaço indevido.
Certo: AsInteger
Pode ser porisso que continua dando erro.
;)
Abço..
Omar M. Haddad
Analista de Sistemas
- Mensagem original
De: Sérgio T. Uetanabaro [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Outubro de 2007 8:29:37
Assunto: RES: [delphi-br] Array
Tenta isso:
if FieldByName( 'GRAU').AsIntege r in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_
De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: [EMAIL PROTECTED] os.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyNam e('GRAU') .AsInteger) [1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyNam e('GRAU') .AsInteger) ;
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira aoliveira_sys@
mailto:aoliveira_ sys%40yahoo. com.br yahoo.com.br wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName( 'GRAU').AsString [1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] mailto:sistemas% 40uniodontocamp. com.br
amp.com.br sistemas%40uniodon tocamp.com. br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp. com.br
[As partes desta mensagem que não continham texto foram removidas]
[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.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
