...
Pressione o atalho de teclado
CTRL + M
Em seguida procure pela função
RetornarCampoFormatadoSTR
Pressione a tecla
ENTER
e o seguinte código aparecerá.
Code Block | ||
---|---|---|
| ||
//Documentação: //https://nimitz.atlassian.net/wiki/spaces/DPU/pages/edit-v2/3748724791 uses Classes, Graphics, Controls, Forms, Dialogs, Variants;System; //Retornar mascara casas decimais function RetornarCampoFormatadoStr(AValor: Extended; ADecimais: integer): string; var vMask: String; vMask: String; const _cMaskNum vMaskBase: string; begin = ',0.00;;#'; begin vMask := Copy(vMaskBase_cMaskNum, 1, Pos('.', vMaskBase_cMaskNum) -1); if ADecimais > 0 then vMask := vMask + '.' + StringOfChar('0', ADecimais); if Pos(';', vMaskBase_cMaskNum) > 0 then vMask := vMask + Copy(vMaskBase_cMaskNum, Pos(';', vMaskBase_cMaskNum), 255); Result := FormatFloat(Copy(vMask, 1, 224), AValor); end; |