Buscar

Validação de valor

Código

Validação para um Valor REAL

no Evento ON EXIT de um edit. Coloque o seguinte;

var
    Aux : Real;
begin
      try
          Aux := StrToFloat(edit1.Text);
      Except
          ShowMessage('Valor Inválido !');
          edit1.SetFocus;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 30/04/07
Por: Danilo Rodrigo Mendonça Vitolo
Visualizada: 3337 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009