TBrookHTTPEntryPointList: ensures unpreparing on its destroying.

joaocronemberger · Jun 14, 2019 · ce068c8 · ce068c8
1 parent cf37083
commit ce068c8
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Source/BrookHTTPEntryPoints.pas b/Source/BrookHTTPEntryPoints.pas
@@ -109,6 +109,7 @@   TBrookHTTPEntryPointList = class(TBrookHandledOwnedCollection)
     procedure CheckPrepared; inline;
   public
     constructor Create(AOwner: TPersistent); virtual;
+    destructor Destroy; override;
     class function GetEntryPointClass: TBrookHTTPEntryPointClass; virtual;
     procedure Assign(ASource: TPersistent); override;
     function GetEnumerator: TBrookHTTPEntryPointListEnumerator;
@@ -295,6 +296,12 @@ constructor TBrookHTTPEntryPointList.Create(AOwner: TPersistent);
   inherited Create(AOwner, GetEntryPointClass);
 end;
 
+destructor TBrookHTTPEntryPointList.Destroy;
+begin
+  Unprepare;
+  inherited Destroy;
+end;
+
 class function TBrookHTTPEntryPointList.GetEntryPointClass: TBrookHTTPEntryPointClass;
 begin
   Result := TBrookHTTPEntryPoint;