paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Forgot to commit FormatFloat builtin

Browse Source 
git-svn-id: trunk@37005 -
This commit is contained in:
michael 2017-08-21 12:07:40 +00:00
parent aa415bfc6b
commit 42e716278b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/fpexprpars.pp
View File

@ -3853,6 +3853,11 @@ begin
Result.resDateTime:=StrToDateTimeDef(Args[0].resString,Args[1].resDateTime); Result.resDateTime:=StrToDateTimeDef(Args[0].resString,Args[1].resDateTime);
end; 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); Procedure BuiltInBoolToStr(Var Result : TFPExpressionResult; Const Args : TExprParameterArray);
begin begin
@ -4008,6 +4013,7 @@ begin
AddFunction(bcConversion,'strtotimedef','D','SD',@BuiltInStrToTimeDef); AddFunction(bcConversion,'strtotimedef','D','SD',@BuiltInStrToTimeDef);
AddFunction(bcConversion,'strtodatetime','D','S',@BuiltInStrToDateTime); AddFunction(bcConversion,'strtodatetime','D','S',@BuiltInStrToDateTime);
AddFunction(bcConversion,'strtodatetimedef','D','SD',@BuiltInStrToDateTimeDef); AddFunction(bcConversion,'strtodatetimedef','D','SD',@BuiltInStrToDateTimeDef);
AddFunction(bcConversion,'formatfloat','S','SF',@BuiltInFormatFloat);
end; end;
if bcAggregate in Categories then if bcAggregate in Categories then
begin begin