Changeset 283


Ignore:
Timestamp:
Oct 10, 2011, 1:34:34 PM (13 years ago)
Author:
george
Message:
  • Fixed: Changing serial port name.
Location:
PinConnection
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • PinConnection/UCommProtocol.pas

    r273 r283  
    111111  end;
    112112
    113 implementation
    114 
    115113resourcestring
    116114  SResponseError = 'Command %0:s response error %1:s';
     
    120118  SProtocolDecodeError = 'Data decode error';
    121119  SProtocolNotActive = 'Device protocol not active';
     120
     121implementation
     122
    122123
    123124procedure TCommProtocol.DataReceive(Sender: TCommPin; Stream: TStream);
  • PinConnection/USerialPort.pas

    r231 r283  
    109109
    110110procedure TSerialPort.SetName(const AValue: string);
    111 begin
     111var
     112  LastState: Boolean;
     113begin
     114  if FName = AValue then Exit;
     115  LastState := FActive;
     116  Active := False;
    112117  FName := AValue;
     118  Active := LastState;
    113119end;
    114120
Note: See TracChangeset for help on using the changeset viewer.