Changeset 31 for Comm/USerialPort.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/USerialPort.pas (modified) (2 diffs)

Comm/USerialPort.pas

@@ -77 +77 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Assign(Source: TObject);
   end;
 
@@ -175 +176 @@
   FReceiveThread.Destroy;
   inherited Destroy;
+end;
+
+procedure TSerialPort.Assign(Source:TObject);
+begin
+  if Source is TSerialPort then begin
+    Name := TSerialPort(Source).Name;
+    BaudRate := TSerialPort(Source).BaudRate;
+    Parity := TSerialPort(Source).Parity;
+    StopBits := TSerialPort(Source).StopBits;
+    DataBits := TSerialPort(Source).DataBits;
+    FlowControl := TSerialPort(Source).FlowControl;
+    DTR := TSerialPort(Source).DTR;
+    RTS := TSerialPort(Source).RTS;
+  end else raise Exception.Create('Assignment error');
 end;