bug fix #147

Configuration/GlobalAssemblyInfo.cs

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=1229
 %MINOR%=1
+%REVISION%=1230
+%COREVERSION%=0
 %MAJOR%=3

InstallerSamples/!MainFeatures/01_First/WriteAll.pas

@@ -1,4 +1,4 @@
-/// Вывод различных типов процедурой write
+/// Вывод различных типов процедурой write
 begin
   // Вывод, целого, строки, вещественного
   Writeln(1,' ',2.5);
@@ -7,6 +7,10 @@ begin
   // Вывод логического
   Writeln(True);
   var a: array [1..10] of integer;
-  // Вывод массива (выводится его тип)
+  // Вывод статического массива
   Writeln(a);
+  // Вывод динамического массива
+  Writeln(Arr(2,3,5));
+  // Вывод кортежа
+  Writeln(('Иванов',16));
 end.

InstallerSamples/!MainFeatures/02_Types/CharFunc.pas

@@ -1,4 +1,4 @@
-// Стандартные функции Ord, Chr, OrdUnicode, ChrUnicode
+// Стандартные функции Ord, Chr, OrdAnsi, ChrAnsi
 var 
   c: char;
   i: integer;
@@ -8,12 +8,12 @@ begin
   writeln;
   c := 'Ж';
   i := Ord(c);
-  writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
-  c := Chr(i);
-  writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
-  writeln;
-  i := OrdUnicode(c);
   writelnFormat('Код символа {0} в кодировке Unicode равен {1}',c,i);
-  c := ChrUnicode(i);
+  c := Chr(i);
   writelnFormat('Символ с кодом {0} в кодировке Unicode - это {1}',i,c);
+  writeln;
+  i := OrdAnsi(c);
+  writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
+  c := ChrAnsi(i);
+  writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
 end.

InstallerSamples/!MainFeatures/02_Types/Dynarray.pas

@@ -1,40 +1,24 @@
-// Процедуры и методы работы с динамическим массивом
-uses System;
-
-procedure Print(a: array of integer);
-begin
-  foreach v: integer in a do
-    Write(v, ' ');
-  Writeln;
-end;    
-
-var a: array of integer;
+// Процедуры и методы работы с динамическим массивом
 
 begin
-  SetLength(a,10); // выделение памяти. А можно так: a := new integer[10];
-  
-  // Заполнение массива
-  for var i:=0 to a.Length-1 do
-    a[i] := PABCSystem.Random(100);
+  var a := ArrRandom(10);
   
   // Вывод всех элементов массива
-  Print(a);
+  a.Println;
   
-  // Сортировка массива (знак & используется для того,
-  // чтобы воспользоваться ключевым словом array при обозначении
-  // класса Array)
-  &Array.Sort(a);
-  Print(a);
+  // Сортировка массива 
+  a.Sort;
+  a.Println;
 
   // Обращение массива
-  &Array.Reverse(a);
-  Print(a);
+  a.Reverse;
+  a.Println;
 
   // Изменение размерамассиав с сохранением элементов. То же делает SetLength
-  &Array.Resize(a,a.Length+2);
-  Print(a);
+  a.Resize(a.Length+2);
+  a.Println;
 
   // Поиск вхождения элемента в массив
-  var i := &Array.IndexOf(a, 50);
+  var i := a.IndexOf(50);
   Writeln(i);
 end.

InstallerSamples/!MainFeatures/07_NetLibs/FormWebBrowser.pas

@@ -1,4 +1,4 @@
-// Иллюстрация использования компонента WebBrowser
+// Иллюстрация использования компонента WebBrowser
 {$apptype windows}
 {$reference System.Windows.Forms.dll}
 

InstallerSamples/Graphics/GraphABC/MouseDownEvent.pas

@@ -0,0 +1,5 @@
+uses GraphABC;
+
+begin
+  OnMouseDown := (x,y,mb) -> Circle(x,y,5);
+end.

InstallerSamples/Graphics/GraphABC/MouseDraw.pas

@@ -0,0 +1,7 @@
+uses GraphABC;
+
+begin
+  Window.Title := 'Ðèñîâàíèå ìûøüþ';
+  OnMouseDown := (x,y,mb) -> MoveTo(x,y);
+  OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y);
+end.

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.1.0.1229'
+!define VERSION '3.1.0.1230'

TreeConverter/TreeConversion/LambdaHelper.cs

@@ -103,7 +103,7 @@ namespace PascalABCCompiler.TreeConverter
                     context.converted_namespace.functions.remove_at(lastIndex);
                 }
             }
-            else
+            //else SSM 27/04/16 - грубое исправление ошибки #147
             {
                 // Если добавилась лямбда как метод класса, то удаляем оттуда
                 if (context.converted_type != null