fpspreadsheet: rename the Create* funtions needed for for formula calculation to Create*Arg

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3282 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpspreadsheet/examples/excel8demo/excel8write.lpr

@@ -293,7 +293,6 @@ begin
   MyWorksheet.WriteCurrency(r, 2, -number, nfCurrencyRed, 0, 'USD');
   MyWorksheet.WriteCurrency(r, 3, 0.0, nfCurrencyRed, 0, 'USD');
 
-  {
   inc(r,2);
   MyWorksheet.WriteUTF8Text(r, 0, 'nfCustom, "EUR "#,##0_);("EUR "#,##0)');
   MyWorksheet.WriteNumber(r, 1, number);
@@ -306,7 +305,7 @@ begin
   MyWorksheet.WriteNumberFormat(r, 1, nfCustom, '"$"#,##0.0_);[Red]("$"#,##0.0)');
   MyWorksheet.WriteNumber(r, 2, -number);
   MyWorksheet.WriteNumberFormat(r, 2, nfCustom, '"$"#,##0.0_);[Red]("$"#,##0.0)');
-}
+
   inc(r, 2);
   number := 1.333333333;
   MyWorksheet.WriteUTF8Text(r, 0, 'nfPercentage, 0 decs');

components/fpspreadsheet/examples/other/test_formula_func.pas

@@ -51,7 +51,7 @@ begin
   // in case of non-numerical values.
   if Args.PopNumberValues(NumArgs, false, data, Result) then
     // Call our FV function with the NumberValues of the arguments.
-    Result := CreateNumber(FV(
+    Result := CreateNumberArg(FV(
       data[0],       // interest rate
       data[1],       // number of payments
       data[2],       // payment

components/fpspreadsheet/tests/formulatests.pas

@@ -190,10 +190,10 @@ begin
     if (cell = nil) then
       fail('Error in test code: Failed to get cell ' + CellNotation(MyWorksheet, Row, 1));
     case cell^.ContentType of
-      cctBool       : actual := CreateBool(cell^.BoolValue);
-      cctNumber     : actual := CreateNumber(cell^.NumberValue);
-      cctError      : actual := CreateError(cell^.ErrorValue);
-      cctUTF8String : actual := CreateString(cell^.UTF8StringValue);
+      cctBool       : actual := CreateBoolArg(cell^.BoolValue);
+      cctNumber     : actual := CreateNumberArg(cell^.NumberValue);
+      cctError      : actual := CreateErrorArg(cell^.ErrorValue);
+      cctUTF8String : actual := CreateStringArg(cell^.UTF8StringValue);
       else            fail('ContentType not supported');
     end;
     expected := SollValues[row];