Changeset 410 for Generics


Ignore:
Timestamp:
Aug 15, 2012, 10:45:44 AM (12 years ago)
Author:
chronos
Message:
  • Added: Class TCommMark in PinConnection package which can divide communication data stream by data mark. Mark is sequence of bytes.
  • Modified: DallasProgrammer in ISPProgrammer package now use TCommMark class for better protocol handling.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Generics/TemplateGenerics/Additional/UBinarySerializer.pas

    r407 r410  
    1919    FEndianness: TEndianness;
    2020    SwapData: Boolean;
     21    procedure SetList(const AValue: TListByte);
    2122    procedure SetEndianness(const AValue: TEndianness);
    2223    procedure ReverseByteOrder(var Buffer; Count: Integer);
     
    5960    destructor Destroy; override;
    6061    property Endianness: TEndianness read FEndianness write SetEndianness;
    61     property List: TListByte read FList write FList;
     62    property List: TListByte read FList write SetList;
    6263    property Grow: Boolean read FGrow write FGrow;
    6364  end;
     
    236237end;
    237238
     239procedure TBinarySerializer.SetList(const AValue: TListByte);
     240begin
     241  if OwnsList then FList.Free;
     242  FList := AValue;
     243end;
     244
    238245procedure TBinarySerializer.SetEndianness(const AValue: TEndianness);
    239246begin
Note: See TracChangeset for help on using the changeset viewer.