Criar fun��es isFloat e isInteger sem usar Exception

Apreenda a criar duas funções para validar se determinado valor é inteiro ou float, sem usar bloco try except.

function IsInteger(value:variant):Boolean;
var
     temp, errorPos :integer;
begin
      Val(Value, temp, errorPos);
      if errorPos = 0 then
         result :=(temp-round(temp))=0;

end;

function IsFloat(value:variant):Boolean;
var
     temp, errorPos :integer;
begin
      Val(Value, temp, errorPos);
      result := (errorPos = 0);
end;

D� um upgrade no in�cio da sua jornada. Crie sua conta gr�tis e baixe o e-book

Criar fun��es isFloat e isInteger sem usar Exception

Apreenda a criar duas funções para validar se determinado valor é inteiro ou float, sem usar bloco try except.

Artigos relacionados