Não apresenta erro de divisão por zero.

Oh entre parenteses retorna um boolean correto?

Talvez seja o ponto flutuante e que wsComFim não seja exatamente zero mas 0.000000000000001 por exemplo

Troque o tipo de wsComFim para integer e / por div e vai cair na exceção

Dentro do parentesis é tudo Real.

Dentro do parenteses é tudo Real.

Dentro do parenteses é tudo Real.

O valor é realmente 0 (zero) o proprio hint mostra.

Bom dia Pea,

criei um programa para verificar o que está ocorrendo e, para meu espando, o cálculo de uma divisão de dois números não é feito, o programa simplesmente pula a linha de comando.
Portanto busquei na internet e encontrei o seguinte: Evitando erro

envio abaixo o programa para sua análise.

procedure TForm1.Button1Click(Sender: TObject);
var
x, y : Integer;
resultado : double;
begin
try
x := 10;
y := 0;
resultado := x / y; // o programa pula essa linha (não sei porque)
resultado := Calc_Double_If(x / y);
showmessage('try - resultado = ' + FloatToStr(x / y));
except
showmessage('except');
end;

end;

function TForm1.Calc_Double_If(Numero: Double): Double;
begin
Calc_Double_If:= Numero;
end;

end.

Espero que nossos amigos do DevMedia possam explicar o ocorrido.

Se não conseguir posicionar o marcador do debug na linha que ele está pulando, creio que seja pq o debug já entendeu que aquela linha não faz o menor sentido ser processada. Inevitavelmente vai dar erro, já que voce está informando que é pra dividir 10 pro 0.

Acontece que se eu colocar o valor de y := 5, também pula a linha e não dá erro na linha
resultado := x / y; // o programa pula essa linha (não sei porque)
o erro ocorre na linha abaixo.

Vou fazer o teste e aviso.
O estranho é que no delphi 7 ele apresenta o erro de divisão por zero.

Não é zero, o Hint arredonda para mostrar. Mas o real conteúdo voce não vê.

E por que o valor fica como -INF ???
De onde saiu isso ?

Não sei o motivo do -INF, mas tenho impressão que é um número muito pequeno fracionado que a IDE não conseguiu mostrar. (chute)

só sei que se voce transformar para Integer vai soltar a exceção de divisão por zero, coloque o Trunc para converter para inteiro, assim :

/ Trunc (wsQtdIni - wsQtdSai);

Ola pessoal, tive uma luz do que esta ocorrendo, um colega me passou o seguinte link.

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/compdirsfinitefloat_xml.html

Agora já sei o que esta ocorrendo mas não sei como corrigir.

Tentei colocar a diretiva {$FINITEFLOAT ON} em diversos lugares mais nada funciona.

Se alguém tiver uma luz agradeço