Add option to omit comments from unit impl sections

TSourceGen.UnitAsString was given an additional Boolean parameter that
determines whether or not descriptive comments (that are written to the
unit interface) are repeated in the implementation section.

Modified TSaveUnitMgr.GenerateSource to add the required additional
parameters, the value of which is obtained from preferences.

Author: delphidabbler

Src/USaveUnitMgr.pas

@@ -99,6 +99,7 @@ implementation
   DB.UMetaData,
   UAppInfo,
   UConsts,
+  UPreferences,
   UUrl,
   UUtils;
 
@@ -215,7 +216,11 @@ function TSaveUnitMgr.GenerateSource(const CommentStyle: TCommentStyle;
   const TruncateComments: Boolean): string;
 begin
   Result := fSourceGen.UnitAsString(
-    UnitName, CommentStyle, TruncateComments, CreateHeaderComments
+    UnitName,
+    CommentStyle,
+    TruncateComments,
+    Preferences.TruncateSourceComments,
+    CreateHeaderComments
   );
 end;
 

Src/USourceGen.pas

@@ -198,18 +198,23 @@   TSourceGen = class(TObject)
     ///  <summary>Generates source code of a Pascal unit containing all the
     ///  specified snippets along with any other snippets that are required to
     ///  compile the code.</summary>
-    ///  <param name="UnitName">string [in] Name of unit.</param>
-    ///  <param name="CommentStyle">TCommentStyle [in] Style of commenting used
-    ///  in documenting snippets.</param>
-    ///  <param name="TruncateComments">Boolean [in] Flag indicating whether or
-    ///  not documentation comments are to be truncated at the end of the first
-    ///  paragraph of multi-paragraph text.</param>
-    ///  <param name="HeaderComments">IStringList [in] List of comments to be
-    ///  included at top of unit.</param>
-    ///  <returns>string. Unit source code.</returns>
+    ///  <param name="UnitName"><c>string</c> [in] Name of unit.</param>
+    ///  <param name="CommentStyle"><c>TCommentStyle</c> [in] Style of
+    ///  commenting used in documenting snippets.</param>
+    ///  <param name="TruncateComments"><c>Boolean</c> [in] Flag indicating
+    ///  whether or not documentation comments are to be truncated at the end of
+    ///  the first paragraph of multi-paragraph text.</param>
+    ///  <param name="UseCommentsInImplmentation"><c>Boolean</c> [in] Flag
+    ///  indicating whether or not comments are to be included in the
+    ///  implementation section. Has no effect when <c>CommentStyle</c> =
+    ///  <c>csNone</c>.</param>
+    ///  <param name="HeaderComments"><c>IStringList</c> [in] List of comments
+    ///  to be included at top of unit.</param>
+    ///  <returns><c>string</c>. Unit source code.</returns>
     function UnitAsString(const UnitName: string;
       const CommentStyle: TCommentStyle = csNone;
       const TruncateComments: Boolean = False;
+      const UseCommentsInImplementation: Boolean = False;
       const HeaderComments: IStringList = nil): string;
 
     ///  <summary>Generates source code of a Pascal include file containing all
@@ -585,14 +590,23 @@ class function TSourceGen.IsFileNameValidUnitName(const FileName: string):
 function TSourceGen.UnitAsString(const UnitName: string;
   const CommentStyle: TCommentStyle = csNone;
   const TruncateComments: Boolean = False;
+  const UseCommentsInImplementation: Boolean = False;
   const HeaderComments: IStringList = nil): string;
 var
-  Writer: TStringBuilder;   // used to build source code string
-  Snippet: TSnippet;        // reference to a snippet object
-  Warnings: IWarnings;      // object giving info about any inhibited warnings
+  Writer: TStringBuilder;                    // used to build source code string
+  Snippet: TSnippet;                            // reference to a snippet object
+  Warnings: IWarnings;        // object giving info about any inhibited warnings
+  ImplCommentStyle: TCommentStyle;        // style of comments in implementation
 begin
+  // Set comment style for implementation section
+  if UseCommentsInImplementation then
+    ImplCommentStyle := CommentStyle
+  else
+    ImplCommentStyle := csNone;
+
   // Generate the unit data
   fSourceAnalyser.Generate;
+
   // Create writer object onto string stream that receives output
   Writer := TStringBuilder.Create;
   try
@@ -681,11 +695,14 @@ function TSourceGen.UnitAsString(const UnitName: string;
     for Snippet in fSourceAnalyser.AllRoutines do
     begin
       Writer.AppendLine(
-        TRoutineFormatter.FormatRoutine(CommentStyle, TruncateComments, Snippet)
+        TRoutineFormatter.FormatRoutine(
+          ImplCommentStyle, TruncateComments, Snippet
+        )
       );
       Writer.AppendLine;
     end;
 
+    // class & records-with-methods implementation source code
     for Snippet in fSourceAnalyser.TypesAndConsts do
     begin
       if Snippet.Kind = skClass then