Verifica se um valor digitado em um edit é um número real válido
Código
Function SFloat(const S: string): Extended;
begin
if not TextToFloat(PChar(S), Result, fvExtended) then
Result := 0.0;
{ ConvertErrorFmt(SInvalidFloat, [S]);}
end;
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Arquivos
Adicionada dia: 28/06/07
Por: Reverson Nogueira Tricoletti
Visualizada: 5888 vezes
Adicionada dia: 28/06/07
Por: Reverson Nogueira Tricoletti
Visualizada: 5888 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009