Fórum Programa de ECF - Validar Edit #370881

var
valorR,Pd:Extended;
ValorI,Pi:integer;
begin
  if TryStrtoInt(edit1.Text,valorI) Then
    Showmessage(´Inteiro´)
  else
    if TryStrToFloat(edit1.Text,ValorR) then
      begin
        Pi:=Trunc(ValorR); //parte Inteira
        Pd:=Frac(valorR); //Parte Decimal
        Showmessage(´Numero Real = ´+floattostr(ValorR)+#1310+
                    ´Parte Inteira = ´+inttostr(Pi)+1310+
                    ´ Parte Decimal ´+FloatTostr(Pd));
      end
    else
       Showmessage(´Valor Inválodo´);
end;