Erro com While.

[Geraldo_Andrade]

Bom dia a todos.

while !eof() .and. db->campo == variavel

desta forma em cada skip ha uma comparacao com a variavel,

entao eu uso desta forma:

while !db->(eof())

(...)

if db->campo <> m->variavel

exit

endif

db->(dbskip())

enddo

Geraldo Andrade

geraldo_andrade@hotmail.com

[vailtom]

Olá.

Do ponto de vista do compilador, a instrução:

id=code>

id=code>

é mais eficiente do que:

(...)

if db->campo <> m->variavel

exit

endif

db->(dbskip())

enddo

id=code>id=code>

Pois o pcode é optimizado para a instrução .AND. e vale lembrar que após o skip todos os dados do registro já estão na memória, o que não implica em leitura dos dados... ou seja, colocar um IF logo abaixo é desnecessário e do ponto de vista do compilador é apenas uma nova instrução a ser gerada. Como os computadores modernos possuem muito poder de processamento isto acaba passando despercebido, mas, note que "desempenho" não é uma justificativa para esta escolha.

Att,

Vailton Renato

"No dia mais claro, na noite mais escura... o bug sucumbirá ante a minha presença"

E-mail/MSN: contato@vailton.com.br

Skype: vailtom