add format example

Author: tranleduy2000

libCompiler/src/main/assets/code_sample/sysutils/Formatter.pas

@@ -6,19 +6,11 @@
    s : string;
 begin
    // Explicit argument indices may be used to re-order output.
-   s := format('%4$2s %3$2s %2$2s %1$2s', 'a', 'b', 'c', 'd');
+   s := format('%4$2s %3$2s %2$2s %1$2s', ['a', 'b', 'c', 'd']);
    // -> ' d  c  b  a'
    WriteLn(s);
 
-   s := format('pi = %+10.4f', pi);
+   s := format('pi = %+10.4f', [pi]);
    // -> 'e =    +2,7183'
    WriteLn(s);
-   
-   // The '(' numeric flag may be used to format negative numbers with
-   // parentheses rather than a minus sign.  Group separators are
-   // automatically inserted.
-   s := format('Amount gained or lost since last statement: $ %(,.2f',
-                 balanceDelta);
-   // -> 'Amount gained or lost since last statement: $ (6,217.58)'
-   writeln(s);
 end.

libCompiler/src/main/java/com/duy/pascal/backend/builtin_libraries/SysUtilsLibrary.java

@@ -282,12 +282,12 @@ public StringBuilder AnsiLowerCase(StringBuilder s1) throws EConvertError {
 
 
     @PascalMethod(description = "Format a string with given arguments. (Java)")
-    public StringBuilder format(String format, Object[] arg) {
-        return new StringBuilder(String.format(format, arg));
+    public StringBuilder format(StringBuilder format, Object[] arg) {
+        return new StringBuilder(String.format(format.toString(), arg));
     }
 
     @PascalMethod(description = "Convert a TDateTime time to a string using a predefined format")
-    public StringBuilder TimeToStr(Long time) {
+    public StringBuilder timeToStr(Long time) {
         Date date = new Date(time);
         return new StringBuilder(date.toString());
     }

libCompiler/src/test/java/com/duy/pascal/lib/SysUtilsTest.java

@@ -37,4 +37,12 @@ public void testAll() {
     public void testTime() {
         run("time.pas");
     }
+
+    public void testFormatArg() {
+        run("test_format_arg.pas");
+    }
+
+    public void testFormatArg2() {
+        run("Formatter.pas");
+    }
 }

test_pascal/test_libraries/sysutils/Formatter.pas

@@ -6,19 +6,11 @@
    s : string;
 begin
    // Explicit argument indices may be used to re-order output.
-   s := format('%4$2s %3$2s %2$2s %1$2s', 'a', 'b', 'c', 'd');
+   s := format('%4$2s %3$2s %2$2s %1$2s', ['a', 'b', 'c', 'd']);
    // -> ' d  c  b  a'
    WriteLn(s);
 
-   s := format('pi = %+10.4f', pi);
+   s := format('pi = %+10.4f', [pi]);
    // -> 'e =    +2,7183'
    WriteLn(s);
-   
-   // The '(' numeric flag may be used to format negative numbers with
-   // parentheses rather than a minus sign.  Group separators are
-   // automatically inserted.
-   s := format('Amount gained or lost since last statement: $ %(,.2f',
-                 balanceDelta);
-   // -> 'Amount gained or lost since last statement: $ (6,217.58)'
-   writeln(s);
 end.