Delphi dicas

Verifica se um valor digitado em um edit é um número real válido

Function SFloat(const S: string): Extended;

begin

        if not TextToFloat(PChar(S), Result, fvExtended) then

        Result := 0.0;

        {    ConvertErrorFmt(SInvalidFloat, [S]);}

end;

por : Reverson Nogueira Tricoletti