From 42e716278b54c1fc6e6fa8305b00d40a4cc255f2 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 21 Aug 2017 12:07:40 +0000 Subject: [PATCH] * Forgot to commit FormatFloat builtin git-svn-id: trunk@37005 - --- packages/fcl-base/src/fpexprpars.pp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/packages/fcl-base/src/fpexprpars.pp b/packages/fcl-base/src/fpexprpars.pp index 5629300690..f0d86f653e 100644 --- a/packages/fcl-base/src/fpexprpars.pp +++ b/packages/fcl-base/src/fpexprpars.pp @@ -3853,6 +3853,11 @@ begin Result.resDateTime:=StrToDateTimeDef(Args[0].resString,Args[1].resDateTime); end; +procedure BuiltInFormatFloat(Var Result : TFPExpressionResult; Const Args : TExprParameterArray); +begin + result.ResString := FormatFloat(Args[0].resString, Args[1].ResFloat); +end; + Procedure BuiltInBoolToStr(Var Result : TFPExpressionResult; Const Args : TExprParameterArray); begin @@ -4008,6 +4013,7 @@ begin AddFunction(bcConversion,'strtotimedef','D','SD',@BuiltInStrToTimeDef); AddFunction(bcConversion,'strtodatetime','D','S',@BuiltInStrToDateTime); AddFunction(bcConversion,'strtodatetimedef','D','SD',@BuiltInStrToDateTimeDef); + AddFunction(bcConversion,'formatfloat','S','SF',@BuiltInFormatFloat); end; if bcAggregate in Categories then begin