Delphi dicas

Truncar valor real

/////////////////////////////////////////////////

//Função utilizada para truncar um valor real

/////////////////////////////////////////////////

Function TruncVal(Value:Real;Casas:Integer):Real;

/////////////////////////////////////////////////

Var sValor:String;

nPos:Integer;

begin

        //Transforma o valor em string

        sValor := FloatToStr(Value);



        //Verifica se possui pondo decimal

        nPos := Pos(DecimalSeparator,sValor);

        If ( nPos > 0 ) Then begin

                sValor := Copy(sValor,1,nPos+Casas);

        End;



        Result := StrToFloat(sValor);

end;

por : João Paulo F. Bellucci