Comments added, formatting improved.

#3
dvmorozov · Sep 29, 2019 · 140d5b1 · 140d5b1
1 parent 1e544b2
commit 140d5b1
Show file tree

Hide file tree

Showing 2 changed files with 253 additions and 244 deletions.
diff --git a/package/CBRCComponent.pas b/package/CBRCComponent.pas
@@ -15,12 +15,12 @@
 interface
 
 uses Classes;
-
+
 type
     TCBRCComponent = class(TComponent)
         { Component Controlled By References Counter (CBRC).
-      The object is freed only when reference counter is equal to zero.
-      The object isn't freed automatically, the destructor must be called
+          The object is freed only when reference counter is equal to zero.
+          The object isn't freed automatically, the destructor must be called
           as usual. In the case of cyclical references objects will be
           undestructable. }
     protected
@@ -41,9 +41,9 @@ procedure TCBRCComponent.Free;
 begin
     if Assigned(Self) then
     begin
-        if RefCount = 0 then
+        if RefCount = 0 then
             Destroy
-        else
+        else
             IntControlled := True;
     end;
 end;
@@ -58,7 +58,7 @@ function TCBRCComponent._Release: Integer; stdcall;
 begin
     Dec(FRefCount);
     Result := RefCount;
-    if IntControlled and (Result = 0) then
+    if IntControlled and (Result = 0) then
         Free;
 end;