IByteSegments - missing method to get byte segment #154

Spelt · Aug 23, 2023 · 47fcc7d · 47fcc7d
1 parent 4eb3919
commit 47fcc7d
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Lib/Classes/Common/ZXIng.ByteSegments.pas b/Lib/Classes/Common/ZXIng.ByteSegments.pas
@@ -14,6 +14,7 @@ interface
         procedure SetCapacity(const Value: integer);
         property Capacity:integer read GetCapacity write SetCapacity;
         function Add(const item:TArray<byte>):integer;
+        function Get(index: integer):TArray<byte>;
      end;
 
 
@@ -33,6 +34,7 @@   TByteSegments = class(TInterfacedObject,IByteSegments)
      function GetCapacity: integer;
      procedure SetCapacity(const Value: integer);
      function Add(const item:TArray<byte>):integer;
+     function Get(index: integer):TArray<byte>;
   public
      destructor Destroy; override;
   end;
@@ -86,4 +88,9 @@ procedure TByteSegments.SetCapacity(const Value: integer);
   FList.Capacity := value;
 end;
 
+function TByteSegments.Get(index: Integer) : TArray<byte>;
+begin
+  Result := FList[index];
+end;
+
 end.