fix #2985

TestSuite/CompilationSamples/PABCSystem.pas

@@ -4242,6 +4242,18 @@ end;
 ///--
 function string.operator+(str: string; n: integer) := str + n.ToString;
 
+// Добавляет к строке str строковое представление числа n
+///--
+function string.operator+(str: string; n: uint64) := str + n.ToString;
+
+// Добавляет к строке str строковое представление числа n
+///--
+function string.operator+(str: string; n: int64) := str + n.ToString;
+
+// Добавляет к строке str строковое представление числа n
+///--
+function string.operator+(str: string; n: longword) := str + n.ToString;
+
 // Добавляет к строке str строковое представление числа n
 ///--
 function string.operator+(n: integer; str: string) := n.ToString + str;

TestSuite/string3.pas

@@ -0,0 +1,20 @@
+var
+  x: uint64;
+  y: cardinal;
+  s: string;
+
+begin
+  x := 123456789012345;
+  s := 'x = ' + x;  // x.ToString
+  assert(s = 'x = 123456789012345');
+  y := 4000000000;
+  s := 'y = ' + y;  // y.ToString
+  assert(s = 'y = 4000000000');
+  var i := 4;
+  s := 'i = ' + i;  // x.ToString
+  assert(s = 'i = 4');
+  
+  var b := byte(4);
+  s := 'b = ' + b;  // x.ToString
+  assert(s = 'b = 4');
+end.

bin/Lib/PABCSystem.pas

@@ -4242,6 +4242,18 @@ end;
 ///--
 function string.operator+(str: string; n: integer) := str + n.ToString;
 
+// Добавляет к строке str строковое представление числа n
+///--
+function string.operator+(str: string; n: uint64) := str + n.ToString;
+
+// Добавляет к строке str строковое представление числа n
+///--
+function string.operator+(str: string; n: int64) := str + n.ToString;
+
+// Добавляет к строке str строковое представление числа n
+///--
+function string.operator+(str: string; n: longword) := str + n.ToString;
+
 // Добавляет к строке str строковое представление числа n
 ///--
 function string.operator+(n: integer; str: string) := n.ToString + str;

bin/Lib/PABCSystem.xml

@@ -2746,6 +2746,15 @@
     <member name="M:+(System.String,System.Int32)">
       <summary>--</summary>
     </member>
+    <member name="M:+(System.String,System.UInt64)">
+      <summary>--</summary>
+    </member>
+    <member name="M:+(System.String,System.Int64)">
+      <summary>--</summary>
+    </member>
+    <member name="M:+(System.String,System.UInt32)">
+      <summary>--</summary>
+    </member>
     <member name="M:+(System.Int32,System.String)">
       <summary>--</summary>
     </member>