Changeset 15 for trunk/UMemory.pas

Timestamp:

Sep 22, 2014, 11:06:27 PM (10 years ago)

Author:

chronos

Message:

• Added: Memory leaks reporting in debug mode.
• Fixed: Various memory leaks in bitmap, color and colorformat classes.

File:

• trunk/UMemory.pas (modified) (2 diffs)

trunk/UMemory.pas

@@ -89 +89 @@
     procedure SetItem(Index: Integer; AValue: Byte); override;
   public
+    constructor Create;
+    destructor Destroy; override;
     function GetInteger: Integer; override;
     procedure SetInteger(Value: Integer); override;
@@ -203 +205 @@
 end;
 
+constructor TBitMemory.Create;
+begin
+  FData := nil;
+end;
+
+destructor TBitMemory.Destroy;
+begin
+  FreeMem(FData);
+  inherited Destroy;
+end;
+
 { TBitBlock }