Added 'formatfloat' to TemplatePro

danieleteti · Dec 24, 2024 · a5ecfb5 · a5ecfb5
1 parent 7d599a3
commit a5ecfb5
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/sources/TemplatePro.pas b/sources/TemplatePro.pas
@@ -2231,6 +2231,12 @@ function TTProCompiledTemplate.ExecuteFilter(aFunctionName: string; var aParamet
       FunctionError(aFunctionName, 'Invalid datetime ' + aValue.AsString.QuotedString);
     end;
   end
+  else if SameText(aFunctionName, 'formatfloat') then
+  begin
+    CheckParNumber(1, aParameters);
+    CheckParamType('formatfloat', @aParameters[0], [TFilterParameterType.fptString]);
+    Result := FormatFloat(aParameters[0].ParStrText, aValue.AsExtended, fLocaleFormatSettings);
+  end
   else if SameText(aFunctionName, 'totrue') then
   begin
     CheckParNumber(0, aParameters);