Print теперь разделяет элементы пробелами. В конце строки пробел не выводится

Версия 3.8.2

Configuration/GlobalAssemblyInfo.cs

@@ -14,8 +14,8 @@ internal static class RevisionClass
 {
 	public const string Major = "3";
 	public const string Minor = "8";
-	public const string Build = "1";
+	public const string Build = "2";
-	public const string Revision = "3007";
+	public const string Revision = "3014";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
+%COREVERSION%=2
+%REVISION%=3014
 %MINOR%=8
-%REVISION%=3007
-%COREVERSION%=1
 %MAJOR%=3

PABCNetHelp/LangGuide/PABCSystemUnit/Files/Write subroutines.html

@@ -12,13 +12,13 @@
 <table border=0 cellpadding=5><tr><td><code><b>function</b> Deserialize(filename: string): object;</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Äåñåðèàëèçóåò îáúåêò èç ôàéëà</td></tr>
 <tr><td><code><b>procedure</b> Print(a,b,...);</code>
-<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... на экран, после каждого значения выводит пробел</td></tr>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... на экран, разделяя их пробелами</td></tr>
 <tr><td><code><b>procedure</b> Print(f: Text; a,b,...);</code>
-<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... в текстовый файл f, после каждого значения выводит пробел</td></tr>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... в текстовый файл f, разделяя их пробелами</td></tr>
 <tr><td><code><b>procedure</b> Println(a,b,...);</code>
-<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... на экран, после каждого значения выводит пробел и переходит на новую строку</td></tr>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... на экран, разделяя их пробелами, и переходит на новую строку</td></tr>
 <tr><td><code><b>procedure</b> Println(f: Text; a,b,...);</code>
-<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... в текстовый файл f, после каждого значения выводит пробел и переходит на новую строку</td></tr>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит значения a,b,... в текстовый файл f, разделяя их пробелами, и переходит на новую строку</td></tr>
 <tr><td><code><b>procedure</b> Serialize(filename: string; obj: object);</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñåðèàëèçóåò îáúåêò â ôàéë (îáúåêò äîëæåí èìåòü àòðèáóò [Serializable])</td></tr>
 <tr><td><code><b>procedure</b> Write(a,b,...);</code>

PABCNetHelp/PABCUnits/GraphWPF/Files/GraphWPF functions for images and video.html

@@ -17,8 +17,8 @@
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ðèñóåò èçîáðàæåíèå èç áèòìàïà â ïîçèöèè (x,y) ðàçìåðà w íà h</td></tr>
 <tr><td><code><b>procedure</b> DrawImageUnscaled(x,y: real; fname: string);</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ðèñóåò íåìàñøòàáèðîâàííîå èçîáðàæåíèå èç ôàéëà fname â ïîçèöèè (x,y)</td></tr>
-<tr><td><code><b>procedure</b> DrawVideo(x,y: real; fname: string);</code>
+<tr><td><code><b>procedure</b> DrawVideo(x,y,w,h: real; fname: string);</code>
-<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûâîäèò âèäåîèç ôàéëà fname â ïîçèöèþ (x,y)</td></tr>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûâîäèò âèäåî èç ôàéëà fname â ïîçèöèþ (x,y) â ïðÿìîóãîëüíèê ðàçìåðîì (w,h)</td></tr>
 <tr><td><code><b>function</b> ImageHeight(fname: string): integer;</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûñîòà èçîáðàæåíèÿ â ïèêñåëàõ</td></tr>
 <tr><td><code><b>function</b> ImageSize(fname: string): (integer,integer);</code>

Release/pabcversion.txt

@@ -1 +1 @@
-3.8.1.3007
+3.8.2.3014

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.8.1.3007'
+!define VERSION '3.8.2.3014'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -379,6 +379,7 @@ type
     fi: FileInfo;
     sr: StreamReader;
     sw: TextWriter;
+    PrintState: integer := 0; // 0 - до любого вывода и в начале строки
   public 
     /// Возвращает значение типа integer, введенное из текстового файла
     function ReadInteger: integer;
@@ -1196,20 +1197,20 @@ procedure WriteFormat(f: Text; formatstr: string; params args: array of object);
 procedure WritelnFormat(f: Text; formatstr: string; params args: array of object);
 
 ///- procedure Print(a,b,...);
-/// Выводит значения a,b,... на экран, после каждого значения выводит пробел
+/// Выводит значения a,b,... на экран, разделяя их пробелами
 procedure Print(o: object);
 ///--
 procedure Print(s: string);
 ///--
 procedure Print(params args: array of object);
 ///- procedure Print(f: Text; a,b,...);
-/// Выводит значения a,b,... в текстовый файл f, после каждого значения выводит пробел
+/// Выводит значения a,b,... в текстовый файл f, разделяя их пробелами
 procedure Print(f: Text; params args: array of object);
 ///- procedure Println(a,b,...);
-/// Выводит значения a,b,... на экран, после каждого значения выводит пробел и переходит на новую строку
+/// Выводит значения a,b,... на экран, разделяя их пробелами, и переходит на новую строку
 procedure Println(params args: array of object);
 ///- procedure Println(f: Text; a,b,...);
-/// Выводит значения a,b,... в текстовый файл f, после каждого значения выводит пробел и переходит на новую строку
+/// Выводит значения a,b,... в текстовый файл f, разделяя их пробелами, и переходит на новую строку
 procedure Println(f: Text; params args: array of object);
 
 /// Сериализует объект в файл (объект должен иметь атрибут [Serializable])
@@ -6570,17 +6571,19 @@ procedure Text.Writeln(params o: array of Object) := PABCSystem.Writeln(Self, o)
 
 procedure Text.Print(params o: array of Object);
 begin
-  if PrintDelimDefault<>'' then
+  PABCSystem.Print(Self,o);
+  {if PrintDelimDefault<>'' then
     foreach var s in o do
       PABCSystem.Write(Self, s, PrintDelimDefault)
   else    
     foreach var s in o do
-      PABCSystem.Write(Self, s)
+      PABCSystem.Write(Self, s)}
 end;
 
 procedure Text.Println(params o: array of Object);
 begin
-  if o.Length <> 0 then
+  PABCSystem.Println(Self,o);
+  {if o.Length <> 0 then
   begin
     if PrintDelimDefault<>'' then
       for var i:=0 to o.Length-2 do
@@ -6590,7 +6593,7 @@ begin
         PABCSystem.Write(Self, o[i]);
     PABCSystem.Write(Self, o.Last);
   end;
-  PABCSystem.Writeln(Self);
+  PABCSystem.Writeln(Self);}
 end;
 
 function Text.Eof := PABCSystem.Eof(Self);
@@ -6814,7 +6817,7 @@ begin
 end;
 
 // -----------------------------------------------------
-//                  Write - Writeln # Write subroutines
+//                  PointerOutput # PointerOutput subroutines
 // -----------------------------------------------------
 function PointerOutput.ToString: string;
 begin
@@ -6826,6 +6829,11 @@ begin
   p := ptr;
 end;
 
+// -----------------------------------------------------
+//                  Write - Writeln # Write subroutines
+// -----------------------------------------------------
+var PrintState := 0; // 0 в начале строки; 1 - после вывода без перехода на новую строку
+
 procedure Write;
 begin
 end;
@@ -6916,6 +6924,7 @@ begin
   if output.sw is StreamWriter then
     writeln_in_output
   else CurrentIOSystem.Writeln;
+  PrintState := 0;
 end;
 
 procedure Writeln(params args: array of object);
@@ -6932,6 +6941,7 @@ begin
       CurrentIOSystem.Write(args[i]);
     CurrentIOSystem.Writeln;
   end;
+  PrintState := 0;
 end;
 
 procedure Write(f: Text);
@@ -6946,19 +6956,6 @@ begin
     raise new System.IO.IOException(GetTranslation(FILE_NOT_OPENED_FOR_WRITING));
   
   f.sw.Write(StructuredObjectToString(val));
-  {if val = nil then
-  begin
-  f.sw.Write('nil');
-  exit;
-  end;
-  case System.Type.GetTypeCode(val.GetType) of
-  TypeCode.Double, 
-  TypeCode.Single,  
-  TypeCode.Decimal: 
-  f.sw.Write(FormatFloatNumber(val.ToString));
-  else
-  f.sw.Write(val)
-  end;}
 end;
 
 procedure Write(f: Text; params args: array of object);
@@ -6975,6 +6972,7 @@ begin
     raise new System.IO.IOException(GetTranslation(FILE_NOT_OPENED_FOR_WRITING));
   
   f.sw.WriteLine;
+  f.PrintState := 0;
 end;
 
 procedure Writeln(f: Text; val: object);
@@ -7020,14 +7018,28 @@ end;
 procedure Print(s: string);
 begin
   if PrintDelimDefault<>'' then
-    Write(s, PrintDelimDefault)
+  begin
+    if PrintState = 0 then
+    begin  
+      Write(s);
+      PrintState := 1
+    end  
+    else Write(PrintDelimDefault, s)
+  end  
   else Write(s)  
 end;
 
 procedure Print(o: object);
 begin
   if PrintDelimDefault<>'' then
-    Write(o, PrintDelimDefault)
+  begin
+    if PrintState = 0 then
+    begin  
+      Write(o);
+      PrintState := 1
+    end  
+    else Write(PrintDelimDefault, o)
+  end  
   else     
     Write(o)
 end; 
@@ -7036,27 +7048,37 @@ procedure Print(params args: array of object);
 begin
   if args.Length = 0 then
     exit;
-  if PrintDelimDefault<>'' then
+  {if PrintDelimDefault<>'' then
     for var i := 0 to args.length - 1 do
       Write(args[i], PrintDelimDefault)
   else     
     for var i := 0 to args.length - 1 do
-      Write(args[i])
+      Write(args[i])}
+  for var i := 0 to args.Length - 1 do
+    Print(args[i])
 end;
 
 procedure Println(params args: array of object);
 begin
   Print(args);
   Writeln;
+  PrintState := 0;
 end;
 
+var FilePrintState := 0;// Хранить FilePrintState в типе Text!!!
+
 procedure Print(f: Text; params args: array of object);
 begin
   if args.Length = 0 then
     exit;
   if PrintDelimDefault<>'' then
     for var i := 0 to args.length - 1 do
-      Write(f, args[i], PrintDelimDefault)
+      if f.PrintState = 0 then
+      begin  
+        Write(f, args[i]);
+        f.PrintState := 1
+      end  
+      else Write(f, PrintDelimDefault, args[i])
   else     
     for var i := 0 to args.length - 1 do
       Write(f, args[i])
@@ -7066,6 +7088,7 @@ procedure Println(f: Text; params args: array of object);
 begin
   Print(f, args);
   Writeln(f);
+  f.PrintState := 0;
 end;
 
 procedure Serialize(filename: string; obj: object);
@@ -7089,6 +7112,9 @@ end;
 // -----------------------------------------------------
 procedure Assign(f: Text; name: string);
 begin
+  f.PrintState := 0;
+  if f = input then
+    PrintState := 0;
   try
     f.fi := System.IO.FileInfo.Create(name);
   except
@@ -7111,6 +7137,7 @@ procedure AssignFile(f: Text; name: string) := Assign(f, name);
 
 procedure Close(f: Text);
 begin
+  f.PrintState := 0;
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
   if f.sr <> nil then 
@@ -7138,6 +7165,7 @@ procedure Reset(f: Text; en: Encoding);
 begin
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
+  f.PrintState := 0;
   if f.sr = nil then
   begin
     f.sr := new StreamReader(f.fi.FullName, en);
@@ -7178,6 +7206,7 @@ procedure Rewrite(f: Text; en: Encoding);
 begin
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
+  f.PrintState := 0;
   if f.sw = nil then
   begin
     f.sw := new StreamWriter(f.fi.FullName, False, en);
@@ -7211,6 +7240,7 @@ procedure Append(f: Text; en: Encoding);
 begin
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
+  f.PrintState := 0;
   f.sw := new StreamWriter(f.fi.FullName, True, en);
 end;
 
@@ -14150,6 +14180,7 @@ begin
         (listener as System.Diagnostics.DefaultTraceListener).AssertUiEnabled := true; }
   __FixPointer(nil);
   StartTime := DateTime.Now;
+  PrintState := 0;
 end;
 
 procedure __InitModule__;
@@ -14169,6 +14200,7 @@ end;
 
 procedure __FinalizeModule__;
 begin
+  PrintState := 0;
   if (output.sw <> nil) and (output.sw is StreamWriter) and ((output.sw as StreamWriter).BaseStream <> nil) then
     output.sw.Close;
   if (ErrOutput.sw <> nil) and (ErrOutput.sw is StreamWriter) and ((ErrOutput.sw as StreamWriter).BaseStream <> nil) then

TestSuite/CompilationSamples/PT4Exam.pas

@@ -154,7 +154,7 @@ end;
 
 
 initialization
-
+  PrintDelimDefault := ' ';
 finalization
 
   FinExam;

bin/Lib/PABCSystem.pas

@@ -379,6 +379,7 @@ type
     fi: FileInfo;
     sr: StreamReader;
     sw: TextWriter;
+    PrintState: integer := 0; // 0 - до любого вывода и в начале строки
   public 
     /// Возвращает значение типа integer, введенное из текстового файла
     function ReadInteger: integer;
@@ -1196,20 +1197,20 @@ procedure WriteFormat(f: Text; formatstr: string; params args: array of object);
 procedure WritelnFormat(f: Text; formatstr: string; params args: array of object);
 
 ///- procedure Print(a,b,...);
-/// Выводит значения a,b,... на экран, после каждого значения выводит пробел
+/// Выводит значения a,b,... на экран, разделяя их пробелами
 procedure Print(o: object);
 ///--
 procedure Print(s: string);
 ///--
 procedure Print(params args: array of object);
 ///- procedure Print(f: Text; a,b,...);
-/// Выводит значения a,b,... в текстовый файл f, после каждого значения выводит пробел
+/// Выводит значения a,b,... в текстовый файл f, разделяя их пробелами
 procedure Print(f: Text; params args: array of object);
 ///- procedure Println(a,b,...);
-/// Выводит значения a,b,... на экран, после каждого значения выводит пробел и переходит на новую строку
+/// Выводит значения a,b,... на экран, разделяя их пробелами, и переходит на новую строку
 procedure Println(params args: array of object);
 ///- procedure Println(f: Text; a,b,...);
-/// Выводит значения a,b,... в текстовый файл f, после каждого значения выводит пробел и переходит на новую строку
+/// Выводит значения a,b,... в текстовый файл f, разделяя их пробелами, и переходит на новую строку
 procedure Println(f: Text; params args: array of object);
 
 /// Сериализует объект в файл (объект должен иметь атрибут [Serializable])
@@ -6570,17 +6571,19 @@ procedure Text.Writeln(params o: array of Object) := PABCSystem.Writeln(Self, o)
 
 procedure Text.Print(params o: array of Object);
 begin
-  if PrintDelimDefault<>'' then
+  PABCSystem.Print(Self,o);
+  {if PrintDelimDefault<>'' then
     foreach var s in o do
       PABCSystem.Write(Self, s, PrintDelimDefault)
   else    
     foreach var s in o do
-      PABCSystem.Write(Self, s)
+      PABCSystem.Write(Self, s)}
 end;
 
 procedure Text.Println(params o: array of Object);
 begin
-  if o.Length <> 0 then
+  PABCSystem.Println(Self,o);
+  {if o.Length <> 0 then
   begin
     if PrintDelimDefault<>'' then
       for var i:=0 to o.Length-2 do
@@ -6590,7 +6593,7 @@ begin
         PABCSystem.Write(Self, o[i]);
     PABCSystem.Write(Self, o.Last);
   end;
-  PABCSystem.Writeln(Self);
+  PABCSystem.Writeln(Self);}
 end;
 
 function Text.Eof := PABCSystem.Eof(Self);
@@ -6814,7 +6817,7 @@ begin
 end;
 
 // -----------------------------------------------------
-//                  Write - Writeln # Write subroutines
+//                  PointerOutput # PointerOutput subroutines
 // -----------------------------------------------------
 function PointerOutput.ToString: string;
 begin
@@ -6826,6 +6829,11 @@ begin
   p := ptr;
 end;
 
+// -----------------------------------------------------
+//                  Write - Writeln # Write subroutines
+// -----------------------------------------------------
+var PrintState := 0; // 0 в начале строки; 1 - после вывода без перехода на новую строку
+
 procedure Write;
 begin
 end;
@@ -6916,6 +6924,7 @@ begin
   if output.sw is StreamWriter then
     writeln_in_output
   else CurrentIOSystem.Writeln;
+  PrintState := 0;
 end;
 
 procedure Writeln(params args: array of object);
@@ -6932,6 +6941,7 @@ begin
       CurrentIOSystem.Write(args[i]);
     CurrentIOSystem.Writeln;
   end;
+  PrintState := 0;
 end;
 
 procedure Write(f: Text);
@@ -6946,19 +6956,6 @@ begin
     raise new System.IO.IOException(GetTranslation(FILE_NOT_OPENED_FOR_WRITING));
   
   f.sw.Write(StructuredObjectToString(val));
-  {if val = nil then
-  begin
-  f.sw.Write('nil');
-  exit;
-  end;
-  case System.Type.GetTypeCode(val.GetType) of
-  TypeCode.Double, 
-  TypeCode.Single,  
-  TypeCode.Decimal: 
-  f.sw.Write(FormatFloatNumber(val.ToString));
-  else
-  f.sw.Write(val)
-  end;}
 end;
 
 procedure Write(f: Text; params args: array of object);
@@ -6975,6 +6972,7 @@ begin
     raise new System.IO.IOException(GetTranslation(FILE_NOT_OPENED_FOR_WRITING));
   
   f.sw.WriteLine;
+  f.PrintState := 0;
 end;
 
 procedure Writeln(f: Text; val: object);
@@ -7020,14 +7018,28 @@ end;
 procedure Print(s: string);
 begin
   if PrintDelimDefault<>'' then
-    Write(s, PrintDelimDefault)
+  begin
+    if PrintState = 0 then
+    begin  
+      Write(s);
+      PrintState := 1
+    end  
+    else Write(PrintDelimDefault, s)
+  end  
   else Write(s)  
 end;
 
 procedure Print(o: object);
 begin
   if PrintDelimDefault<>'' then
-    Write(o, PrintDelimDefault)
+  begin
+    if PrintState = 0 then
+    begin  
+      Write(o);
+      PrintState := 1
+    end  
+    else Write(PrintDelimDefault, o)
+  end  
   else     
     Write(o)
 end; 
@@ -7036,27 +7048,37 @@ procedure Print(params args: array of object);
 begin
   if args.Length = 0 then
     exit;
-  if PrintDelimDefault<>'' then
+  {if PrintDelimDefault<>'' then
     for var i := 0 to args.length - 1 do
       Write(args[i], PrintDelimDefault)
   else     
     for var i := 0 to args.length - 1 do
-      Write(args[i])
+      Write(args[i])}
+  for var i := 0 to args.Length - 1 do
+    Print(args[i])
 end;
 
 procedure Println(params args: array of object);
 begin
   Print(args);
   Writeln;
+  PrintState := 0;
 end;
 
+var FilePrintState := 0;// Хранить FilePrintState в типе Text!!!
+
 procedure Print(f: Text; params args: array of object);
 begin
   if args.Length = 0 then
     exit;
   if PrintDelimDefault<>'' then
     for var i := 0 to args.length - 1 do
-      Write(f, args[i], PrintDelimDefault)
+      if f.PrintState = 0 then
+      begin  
+        Write(f, args[i]);
+        f.PrintState := 1
+      end  
+      else Write(f, PrintDelimDefault, args[i])
   else     
     for var i := 0 to args.length - 1 do
       Write(f, args[i])
@@ -7066,6 +7088,7 @@ procedure Println(f: Text; params args: array of object);
 begin
   Print(f, args);
   Writeln(f);
+  f.PrintState := 0;
 end;
 
 procedure Serialize(filename: string; obj: object);
@@ -7089,6 +7112,9 @@ end;
 // -----------------------------------------------------
 procedure Assign(f: Text; name: string);
 begin
+  f.PrintState := 0;
+  if f = input then
+    PrintState := 0;
   try
     f.fi := System.IO.FileInfo.Create(name);
   except
@@ -7111,6 +7137,7 @@ procedure AssignFile(f: Text; name: string) := Assign(f, name);
 
 procedure Close(f: Text);
 begin
+  f.PrintState := 0;
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
   if f.sr <> nil then 
@@ -7138,6 +7165,7 @@ procedure Reset(f: Text; en: Encoding);
 begin
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
+  f.PrintState := 0;
   if f.sr = nil then
   begin
     f.sr := new StreamReader(f.fi.FullName, en);
@@ -7178,6 +7206,7 @@ procedure Rewrite(f: Text; en: Encoding);
 begin
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
+  f.PrintState := 0;
   if f.sw = nil then
   begin
     f.sw := new StreamWriter(f.fi.FullName, False, en);
@@ -7211,6 +7240,7 @@ procedure Append(f: Text; en: Encoding);
 begin
   if f.fi = nil then
     raise new IOException(GetTranslation(FILE_NOT_ASSIGNED));
+  f.PrintState := 0;
   f.sw := new StreamWriter(f.fi.FullName, True, en);
 end;
 
@@ -14150,6 +14180,7 @@ begin
         (listener as System.Diagnostics.DefaultTraceListener).AssertUiEnabled := true; }
   __FixPointer(nil);
   StartTime := DateTime.Now;
+  PrintState := 0;
 end;
 
 procedure __InitModule__;
@@ -14169,6 +14200,7 @@ end;
 
 procedure __FinalizeModule__;
 begin
+  PrintState := 0;
   if (output.sw <> nil) and (output.sw is StreamWriter) and ((output.sw as StreamWriter).BaseStream <> nil) then
     output.sw.Close;
   if (ErrOutput.sw <> nil) and (ErrOutput.sw is StreamWriter) and ((ErrOutput.sw as StreamWriter).BaseStream <> nil) then