Changeset 414 for PinConnection/UCommConcentrator.pas

Timestamp:

Aug 17, 2012, 9:53:11 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Use parent TCommNode Active property instead custom in PinConnection package.

File:

• PinConnection/UCommConcentrator.pas (modified) (2 diffs)

PinConnection/UCommConcentrator.pas

@@ -40 +40 @@
     property Pins: TPinList read FPins write FPins;
     property Main: TCommPin read FMain write FMain;
-    property Active: Boolean read FActive write FActive;
   end;
 
@@ -122 +121 @@
 destructor TCommConcentrator.Destroy;
 begin
-  FActive := False;
-  FPins.Free;
-  FMain.Free;
+  Active := False;
+  FreeAndNil(FPins);
+  FreeAndNil(FMain);
   inherited Destroy;
 end;