bug fix: function ReadFileToEnd and Utils

Signed-off-by: Slav76 <GavrikVA@gmail.com>

TestSuite/CompilationSamples/FilesOperations.pas

@@ -19,7 +19,7 @@ begin
   while not eof(f) do
   begin
 	readln(f,s);
-	sb.append(s);
+	sb.AppendLine(s);
   end;
   ReadFileToEnd:=sb.ToString();
   CloseFile(f);{}

TestSuite/formatter_tests/input/FilesOperations.pas

@@ -17,7 +17,7 @@ begin
   while not eof(f) do
   begin
 	readln(f,s);
-	sb.append(s);
+	sb.AppendLine(s);
   end;
   ReadFileToEnd:=sb.ToString();
   CloseFile(f);{}

Utils/IncrementVresion/IncrementVresion.pas

@@ -21,11 +21,14 @@ begin
   while not eof(f) do begin
     readln(f,s);
     i := s.IndexOf('=');
-    name := s.Substring(0,i);
-    if name = IncrementDef then
-      defs.Add(name, System.Convert.ToInt32(s.Substring(i+1))+IncrementValue)
-    else
-      defs.Add(name, s.Substring(i+1));
+    if i > 0 then
+    begin
+      name := s.Substring(0,i);
+      if name = IncrementDef then
+        defs.Add(name, System.Convert.ToInt32(s.Substring(i+1))+IncrementValue)
+      else
+        defs.Add(name, s.Substring(i+1));
+    end;
   end;
   CloseFile(f);
   AssignFile(f, DefsFile);

bin/Lib/FilesOperations.pas

@@ -19,7 +19,7 @@ begin
   while not eof(f) do
   begin
 	readln(f,s);
-	sb.append(s);
+	sb.AppendLine(s);
   end;
   ReadFileToEnd:=sb.ToString();
   CloseFile(f);{}