trecho d codigo naum compila e naum dah erro

[mestre5 0]

O trecho em vermelho desse codigo naum compila e naum dah erro, ele eh simplesmente ignorado na compilaçao:

 

begin

pSalario := StrToFloat(salario.Text);

if ((pSalario >= 1257.13) and (pSalario <= 2512.08)) then

begin

ImpIR := 188.57;

aliquota:= 15;

end

else if (pSalario > 2512.08) then

begin

ImpIR := 502.58;

aliquota:= 27.5;

end

else

begin

ImpIR := 0;

aliquota:= 0;

end;

 

alguem pode me ajudar???

[Richard SRD Sistemas 0]

Deve ser porq na sua aplicação,..nao esta caindo dentro das clausulas do IF,...o codigo que esta sendo relacionado,..nao esta entrando dentro do bloco IF e nem do ELSE IF!!!flw ae!!!

[bdexterholland 0]

Monta isso em um case:

 

beginpSalario := StrToFloat(salario.Text);case psalario of    1257.13..2512.08:begin								  ImpIR := 188.57;								  aliquota:= 15;							 end   2512.08..999999:begin								  ImpIR := 502.58;								  aliquota:= 27.5;							endendelse	  begin		  ImpIR := 0;		  aliquota:= 0;	  end;end;