Modelo de função para retornar o campo formatado em String. Para usá-lo faça o seguinte:
Pressione o atalho de teclado
CTRL + M
Em seguida procure pela função
RetornarCampoFormatadoSTR
Pressione a tecla
ENTER
e o seguinte código aparecerá.
uses Classes, Graphics, Controls, Forms, Dialogs, Variants; //Retornar mascara casas decimais function RetornarCampoFormatadoStr(AValor: Extended; ADecimais: integer): string; var vMask: String; vMaskBase: string; begin vMask := Copy(vMaskBase, 1, Pos('.', vMaskBase) -1); if ADecimais > 0 then vMask := vMask + '.' + StringOfChar('0', ADecimais); if Pos(';', vMaskBase) > 0 then vMask := vMask + Copy(vMaskBase, Pos(';', vMaskBase), 255); Result := FormatFloat(Copy(vMask, 1, 224), AValor); end;