Changeset 247 for PinConnection/UCommPin.pas

Timestamp:

May 24, 2011, 12:36:12 PM (13 years ago)

Author:

george

Message:

• Fixed: Various minor bugs and enhancements.

File:

• PinConnection/UCommPin.pas (modified) (1 diff)

PinConnection/UCommPin.pas

@@ -51 +51 @@
 procedure TCommPin.Connect(Pin: TCommPin);
 begin
-  if Assigned(Pin) then Disconnect;
-  Self.RemotePin := Pin;
-  Pin.RemotePin := Self;
+  if Pin <> RemotePin then begin
+    Pin.Disconnect;
+    Disconnect;
+    Self.RemotePin := Pin;
+    Pin.RemotePin := Self;
+  end;
 end;