Page Comparison

//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;