Programa de ECF - Validar Edit

Delphi

30/05/2009

Boooaa pessoal

Estou iniciando um projeto para cupom fiscal e ´travei´ em uma detalhe.

Preciso identificar se no Edit consta um valor Inteiro ou Fração, na ´QUANTIDADE´. Ja procurei muito aqui no forum sobre o assunto mais nao consegui localizar nenhuma dica.

Obrigado

Douglas-Altônia


Douglasaltonia

Douglasaltonia

Curtidas 0

Respostas

Marco Salles

Marco Salles

30/05/2009

Destrave ...


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;



GOSTEI 0
POSTAR