Criar funções isFloat e isInteger sem usar Exception

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

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;
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?