Código
Ao invés de...
1-> If (A = 1) or (A=5) or (A=10) or (A=50) Then
2-> If (B > 0) Then
If (F < 5) Then
3-> If (A = 1) or (A=2) or (A=4) or (A=5) Then
OK := True
else
If (A = 3) Then
OK := False;
Faça...
1-> If (A in [1,5,10,50]) Then
2-> If (B > 0) and (F < 5) Then
3-> Case A of
1,2,4,5: OK := True;
else
OK := False;
{Quando compilamos o nosso projeto no Delphi, ele é transformado numa outra linguagem (ASSEMBLER).
Pois é... o que isso tem a ver???!!!
A cada IF que você utiliza, simplesmente é gerado em torno de 200 linhas!!! No exemplo 2, foi economizado! Pense nisso. O programa fica maior e mais "pesado" para execução.
Espero que isso ajude essa galera! }
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009