Changeset 31 for Comm/USerialPort.pas
- Timestamp:
- Jun 24, 2010, 4:18:03 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Comm/USerialPort.pas
r26 r31 77 77 constructor Create; 78 78 destructor Destroy; override; 79 procedure Assign(Source: TObject); 79 80 end; 80 81 … … 175 176 FReceiveThread.Destroy; 176 177 inherited Destroy; 178 end; 179 180 procedure TSerialPort.Assign(Source:TObject); 181 begin 182 if Source is TSerialPort then begin 183 Name := TSerialPort(Source).Name; 184 BaudRate := TSerialPort(Source).BaudRate; 185 Parity := TSerialPort(Source).Parity; 186 StopBits := TSerialPort(Source).StopBits; 187 DataBits := TSerialPort(Source).DataBits; 188 FlowControl := TSerialPort(Source).FlowControl; 189 DTR := TSerialPort(Source).DTR; 190 RTS := TSerialPort(Source).RTS; 191 end else raise Exception.Create('Assignment error'); 177 192 end; 178 193
Note:
See TracChangeset
for help on using the changeset viewer.