Validar dados introduzidos numa InputBox

03/01/2006

0

Oi pessoal,


Queria validar os dados introduzidos na InputBox, mas como estou fazendo no exemplo seguinte só aceita integer. Que devo alterar para aceitar float ?

CODIGO:

repeat
InputString := InputBox(´Quantidade ´, ´Valor:´,´.´);
val(InputString, I, Code);
if Code <> 0 then
bsSkinMessage1.MessageDlg2 (´Tem que ser numero.´, ´Atenção.´, mtInformation, [mbOk], 0);
until (Code = 0);


Agradeci a ajuda :wink:


Nilpedro

Nilpedro

Responder

Posts

03/01/2006

Caninha51

var
  InputString: String;
  Code: Double;
  IsFloat: Boolean;
begin
repeat
InputString := InputBox(´Quantidade ´, ´Valor:´,´.´);
IsFloat := TryStrToFloat(InputString,Code);
if not IsFloat then
  bsSkinMessage1.MessageDlg2 (´Tem que ser numero.´, ´Atenção.´, mtInformation, [mbOk], 0); 
until IsFloat;
end;



Responder

04/01/2006

Nilpedro

Mas a função TryStrToFloat só existe no Delphi 6, e eu estou trabalhar Delphi 5


Responder

04/01/2006

Nilpedro

Consegui

No caso Delphi 5 Fiz assim:


repeat
InputString := InputBox(´Quantidade ´, ´Valor:´,´´);
IsFloat:=true;
try
Code := StrToFloat(InputString);
except
on EConvertError do IsFloat:=false;
end;
if not IsFloat then
bsSkinMessage1.MessageDlg2 (´Tem que ser numero.´, ´Atenção.´, mtInformation, [mbOk], 0);
until IsFloat;

valeu a ajuda :wink:


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar