Changeset 31 for Comm/UCommSerialPort.pas

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

• Comm/UCommSerialPort.pas (modified) (1 diff)

Comm/UCommSerialPort.pas

@@ -45 +45 @@
 destructor TCommSerialPort.Destroy;
 begin
-  FreeAndNil(DataPin);
+  OnReceiveData := nil;
+  DataPin.Destroy;
   inherited;
 end;