Исправлена Print(s: string)

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "0";
 	public const string Build = "0";
-	public const string Revision = "1108";
+	public const string Revision = "1116";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=0
-%REVISION%=1108
+%REVISION%=1116
 %COREVERSION%=0
 %MAJOR%=3

InstallerSamples/!Tutorial/09_Arrays/DynArr1.pas

@@ -7,8 +7,8 @@ begin
   var n := 20;
   SetLength(a,n);
   for var i:=0 to a.Length-1 do
-    a[i] := Random(1,9);
+    a[i] := Random(1,99);
   writeln('Ñîäåðæèìîå ñëó÷àéíîãî äèíàìè÷åñêîãî ìàññèâà öåëûõ: ');  
-  foreach x: integer in a do
-    write(x,' ');
+  foreach var x in a do
+    Print(x);
 end.

InstallerSamples/!Tutorial/09_Arrays/DynArr3.pas

@@ -6,12 +6,8 @@ begin
   SetLength(a,5);
   for var i:=0 to a.Length-1 do
     a[i] := i+1;
-  for var i:=0 to a.Length-1 do
-    write(a[i],' ');
-  writeln;  
+  a.Println;
 
   SetLength(a,10);
-  for var i:=0 to a.Length-1 do
-    write(a[i],' ');
-  writeln;  
+  a.Println;
 end.

InstallerSamples/LINQ/First3Min.pas

@@ -1,4 +1,4 @@
 // Ïåðâûå 3 ìèíèìóìà
 begin
-  SeqRandom().Println().OrderBy(x->x).Distinct().Take(3).Println;
+  SeqRandom(20).Println.Sorted.Distinct.Take(3).Println;
 end.

InstallerSamples/NETLibraries/System.Net/WebClient.pas

@@ -1,8 +1,6 @@
 // Èñïîëüçîâàíèå WebClient
 uses System.Net;
 
-const address = 'www.yandex.ru';
-
 begin
   var w := new WebClient();
   w.Encoding := System.Text.Encoding.UTF8;

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -2,7 +2,7 @@
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
 //  Machine:  SSM
-//  DateTime: 06.12.2015 22:37:59
+//  DateTime: 20.12.2015 9:14:44
 //  UserName: ?????????
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>

Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs

@@ -2,7 +2,7 @@
 
 // GPPG version 1.3.6
 // Machine:  SSM
-// DateTime: 06.12.2015 22:38:00
+// DateTime: 20.12.2015 9:14:44
 // UserName: ?????????
 // Input file <ABCPascal.y>
 

Parsers/PascalABCParserNewSaushkin/PABC.ymc

@@ -83,5 +83,6 @@ script=
 
 
 
+
 
 

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.0.0.1108'
+!define VERSION '3.0.0.1116'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -2971,7 +2971,6 @@ begin
   left := sb.ToString;
 end;
 
-
 /// Âîçâðàùàåò èíâåðñèþ ñòðîêè
 function string.Inverse(): string;
 begin
@@ -2981,6 +2980,8 @@ begin
   Result := sb.ToString;
 end;
 
+
+
 //------------------------------------------------------------------------------
 // Extension methods for BigInteger
 //------------------------------------------------------------------------------
@@ -4880,7 +4881,7 @@ end;
 
 procedure Print(s: string);
 begin
-  write(s);
+  write(s, ' ');
 end;
 
 procedure Print(params args: array of object);
@@ -7176,8 +7177,34 @@ begin
 end;
 
 //------------------------------------------------------------------------------
-//    Linq ext
+//    char ext
 //------------------------------------------------------------------------------
+// Ïðåîáðàçîâàòü ñèìâîë â öèôðó
+function char.ToDigit(self: char): integer; extensionmethod;
+begin
+  Result := OrdUnicode(self) - OrdUnicode('0');
+  if (Result<0) or (Result>=10) then
+    raise new System.FormatException('not a Digit');
+end;
+
+// Ñëåäóþùèé ñèìâîë
+function char.Succ(self: char): char; extensionmethod;
+begin
+  Result := PABCSystem.succ(self);
+end;
+
+// Êîä ñèìâîëà
+function char.Code(self: char): integer; extensionmethod;
+begin
+  Result := word(self);
+end;
+
+// Ïðåäûäóùèé ñèìâîë
+function char.Pred(self: char): char; extensionmethod;
+begin
+  Result := PABCSystem.pred(self);
+end;
+
 // ßâëÿåòñÿ ëè ñèìâîë öèôðîé
 function char.IsDigit(self: char): boolean; extensionmethod;
 begin
@@ -7210,6 +7237,9 @@ begin
   Result := char.ToLower(self);
 end;
 
+//------------------------------------------------------------------------------
+//    string ext
+//------------------------------------------------------------------------------
 /// Ïðåîáðàçóåò ñòðîêó â öåëîå
 function string.ToInteger: integer;
 begin

VisualPascalABCNET/VisualPascalABCNET.csproj

@@ -169,9 +169,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="DS\NavigationManager.cs" />
-    <Compile Include="DS\CodeCompletionVisual\CodeCompletionListView.cs">
-      <SubType>UserControl</SubType>
-    </Compile>
+    <Compile Include="DS\CodeCompletionVisual\CodeCompletionListView.cs" />
     <Compile Include="DS\CodeCompletionVisual\CodeCompletionWindow.cs">
       <SubType>Form</SubType>
     </Compile>
@@ -310,17 +308,13 @@
       <DependentUpon>BreakpointCondition.cs</DependentUpon>
     </Compile>
     <Compile Include="IB\Debugger\Debugger.cs" />
-    <Compile Include="IB\Debugger\DynamicTreeView.cs">
-      <SubType>UserControl</SubType>
-    </Compile>
+    <Compile Include="IB\Debugger\DynamicTreeView.cs" />
     <Compile Include="IB\Debugger\ExpressionEvaluation.cs" />
     <Compile Include="IB\Debugger\Immediate.cs" />
     <Compile Include="IB\Debugger\LocalVars.cs">
     </Compile>
     <Compile Include="IB\Debugger\Utility.cs" />
-    <Compile Include="IB\FormExtensions.cs">
-      <SubType>Form</SubType>
-    </Compile>
+    <Compile Include="IB\FormExtensions.cs" />
     <Compile Include="DockContent\OutputWindowForm.cs">
       <SubType>Form</SubType>
     </Compile>
@@ -370,9 +364,7 @@
     <Compile Include="OptionsContent\ViewOptionsContent.Designer.cs">
       <DependentUpon>ViewOptionsContent.cs</DependentUpon>
     </Compile>
-    <Compile Include="Program.cs">
-      <SubType>Form</SubType>
-    </Compile>
+    <Compile Include="Program.cs" />
     <Compile Include="Config\AssemblyInfo.cs" />
     <Compile Include="Workbench\BuildService.cs" />
     <Compile Include="Workbench\DesignerService.cs">

bin/Lib/PABCSystem.pas

@@ -4881,7 +4881,7 @@ end;
 
 procedure Print(s: string);
 begin
-  write(s);
+  write(s, ' ');
 end;
 
 procedure Print(params args: array of object);