Changeset 416 for PinConnection/UCommSerialPort.pas

Timestamp:

Aug 20, 2012, 2:45:39 PM (12 years ago)

Author:

chronos

Message:

• Added: TDeviceConnector in PinConnection package for generalized routing serial data to various TCommNode objects.

File:

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

PinConnection/UCommSerialPort.pas

@@ -20 +20 @@
   protected
     procedure SetActive(const AValue: Boolean); override;
+    procedure AssignTo(Dest: TPersistent); override;
   public
     SerialPort: TSerialPort;
@@ -43 +44 @@
   inherited;
   SerialPort.Active := AValue;
+end;
+
+procedure TCommSerialPort.AssignTo(Dest: TPersistent);
+begin
+  if Dest is TCommSerialPort then begin
+    TCommSerialPort(Dest).SerialPort.Assign(SerialPort);
+  end else inherited;
 end;