Merge branch 'hotfix/0.1.1-beta'

CHANGELOG.md

@@ -2,10 +2,25 @@
 
 This is the change log for _unit2ns_ by DelphiDabbler.
 
-All notable changes to this project are documented in this file. Releases are listed in reverse version number order.
+All notable changes to this project are documented in this file. Releases are listed in reverse version number order. The file format adheres closely to the recommendations of the [keep a changelog](https://keepachangelog.com/) project.
 
 The version numbering attempts to adhere to the principles of [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
-## Release v0.1.0-beta of 8 February 2021
+## [0.1.1] - 2021-10-01 [HOTFIX]
+
+### Fixed
+  * Memory leek [issue #1].
+
+### Added
+  * Debug builds now detect memory leeks.
+
+### Changed
+* Change compiler & `.dproj` file format to Delphi 11 Alexandria from Delphi 10.4.1 Sydney.
+* Minor edits to `README.md`
+
+## [0.1.0] - 2021-02-08
 
 Initial beta release.
+
+[0.1.1]: https://github.com/delphidabbler/unit2ns/compare/v0.1.0-beta...v0.1.1-beta
+[0.1.0]: https://github.com/delphidabbler/unit2ns/tree/v0.1.0-beta

README.md

@@ -12,11 +12,11 @@ Since the introduction of namespaces to Delphi I've been struggling to remember
 
 _Unit2NS_ is available is either a 32 bit or 64 bit Windows application. Download the appropriate version from the _Releases_ tab on [GitHub](https://github.com/delphidabbler/unit2ns). The program comes in a zip file which you should unzip.
 
-There is no installer for this simple program. Simply copy the `.exe` file to a folder on your computer or on a USB drive. If you have the 32 bit version the executable file is named `Unit2NS32.exe` while the 64 bit version is `Unit2NS64.exe`. You can copy this `README` file to the same location if you wish.
+There is no installer for this simple program. Simply copy the `.exe` file to a folder on your computer or on a USB drive. If you have the 32 bit version the executable file is named `Unit2NS32.exe` while the 64 bit version is `Unit2NS64.exe`. You can copy this `README.md` file to the same location if you wish.
 
 When it is first run, _Unit2NS_ will write data to a `config` sub-directory of whichever folder you put it in. For that reason you may prefer to place the program in its own folder.
 
-**DO NOT** place _Unit2NS_ in your system's program files folder since the system will probably prevent it from writing the necessary data files.
+> **DO NOT** place _Unit2NS_ in your system's program files folder since the system will probably prevent it from writing the necessary data files.
 
 ### Updating
 
@@ -72,7 +72,7 @@ Please make a fork from the `develop` branch (**not** `master`) and create an ne
 
 ### Compiling From Source
 
-_Unit2NS_ is written in Delphi Object Pascal and developed using Delphi 10.4.1 Sydney. The program can be compiled from within the IDE.
+_Unit2NS_ is written in Delphi Object Pascal and developed using Delphi 11 Alexandria (Delphi 10.4.1 Sydney was used for v0.1.0-beta). The program can be compiled from within the IDE.
 
 ## Bugs and Feature Requests
 

src/Resources.rc

@@ -19,8 +19,8 @@ MAINICON ICON "Res/Unit2NS.ico"
   Produced by Version Information Editor from DelphiDabbler
 */                                                                                                                      \
 1 VERSIONINFO
-FILEVERSION 0, 1, 0, 0
-PRODUCTVERSION 0, 1, 0, 0
+FILEVERSION 0, 1, 1, 0
+PRODUCTVERSION 0, 1, 1, 0
 FILEFLAGSMASK 0x00
 FILEOS VOS__WINDOWS32
 FILETYPE VFT_APP
@@ -31,12 +31,12 @@ FILETYPE VFT_APP
   {
    VALUE "CompanyName", "DelphiDabbler.com\000"
    VALUE "FileDescription", "Simple tool to display namespaces that various Delphi units belong to\000"
-   VALUE "FileVersion", "0.1.0\000"
+   VALUE "FileVersion", "0.1.1\000"
    VALUE "InternalName", "unit2ns\000"
    VALUE "LegalCopyright", "Copyright (c) 2021, Peter Johnson, delphidabbler.com. Released under the MIT license.\000"
    VALUE "OriginalFileName", "unit2ns.exe\000"
    VALUE "ProductName", "unit2ns\000"
-   VALUE "ProductVersion", "0.1.0 beta\000"
+   VALUE "ProductVersion", "0.1.1-beta\000"
   }
  }
  BLOCK "VarFileInfo"

src/UDataIO.pas

@@ -38,6 +38,7 @@   TMapFileWriter = class sealed(TMapFileBase)
     procedure BuildOutput;
   public
     constructor Create(const UnitMap: TUnitMap);
+    destructor Destroy; override;
     procedure WriteFile;
   end;
 
@@ -176,6 +177,12 @@ constructor TMapFileWriter.Create(const UnitMap: TUnitMap);
   fBuilder := TStringBuilder.Create;
 end;
 
+destructor TMapFileWriter.Destroy;
+begin
+  fBuilder.Free;
+  inherited;
+end;
+
 procedure TMapFileWriter.WriteFile;
 var
   FullPath: string;

src/Unit2NS.dpr

@@ -22,6 +22,9 @@ uses
 {$R Resources.res}
 
 begin
+  {$IF defined(DEBUG)}
+  ReportMemoryLeaksOnShutdown := True;
+  {$ENDIF}
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.Run;