Changeset 410 for Generics/TemplateGenerics/Additional/UBinarySerializer.pas

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:

• Generics/TemplateGenerics/Additional/UBinarySerializer.pas (modified) (3 diffs)

Generics/TemplateGenerics/Additional/UBinarySerializer.pas

@@ -19 +19 @@
     FEndianness: TEndianness;
     SwapData: Boolean;
+    procedure SetList(const AValue: TListByte);
     procedure SetEndianness(const AValue: TEndianness);
     procedure ReverseByteOrder(var Buffer; Count: Integer);
@@ -59 +60 @@
     destructor Destroy; override;
     property Endianness: TEndianness read FEndianness write SetEndianness;
-    property List: TListByte read FList write FList;
+    property List: TListByte read FList write SetList;
     property Grow: Boolean read FGrow write FGrow;
   end;
@@ -236 +237 @@
 end;
 
+procedure TBinarySerializer.SetList(const AValue: TListByte);
+begin
+  if OwnsList then FList.Free;
+  FList := AValue;
+end;
+
 procedure TBinarySerializer.SetEndianness(const AValue: TEndianness);
 begin