Para usar a função nativa do Delphi, TryStrToFloat, é necessário declarar na uses da unit, a biblioteca, SysUtils ou System.Utils, como é uma função, o seu retorno será do tipo boolean, true(verdadeiro) ou false(falso).
Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
f: double;
begin
s := '127,258';
if TryStrToFloat(s, f) then {true}
ShowMessage('Ok! ' + FormatFloat('#0.00', f))
else {false}
ShowMessage(s + ' não é um número float válido!');
end;
Observação: Com essa função nativa do Delphi, não é mais necessário fazer um bloco
try...except...end, para fazer tal validação.
[Fonte: Show Delphi]
0 comentários:
Postar um comentário