Changeset 15 for trunk/UDatabase.pas

Timestamp:

Mar 22, 2018, 8:31:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Update Common and CollTranslator packages to fix build under Lazarus 1.8.
• Fixed: Some memory leaks.

File:

• trunk/UDatabase.pas (modified) (4 diffs)

trunk/UDatabase.pas

@@ -68 +68 @@
     property DataType: TDataType read FDataType write SetDataType;
     constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -484 +485 @@
 begin
   TypeRelated := TFieldString.Create;
+end;
+
+destructor TField.Destroy;
+begin
+  DataType := nil;
+  inherited Destroy;
 end;
 
@@ -521 +528 @@
 var
   DbRows: TDbRows;
-  I: Integer;
-  F: Integer;
-  NewRecord: TRecord;
-  NewValue: TValue;
 begin
   Records.Clear;
@@ -581 +584 @@
 destructor TDatabase.Destroy;
 begin
+  Engine := nil;
   Tables.Free;
   inherited Destroy;