Validar dados introduzidos numa InputBox
03/01/2006
0
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
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;
04/01/2006
Nilpedro
04/01/2006
Nilpedro
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:
Clique aqui para fazer login e interagir na Comunidade :)