Changeset 426 for Generics/TemplateGenerics/Generic/GenericStream.inc

Timestamp:

Sep 24, 2012, 1:47:39 PM (12 years ago)

Author:

chronos

Message:

• Modified: Custom types for TemplateGenerics moved from global space to class local space.
• Added: Partial GenericFileList class.

File:

• Generics/TemplateGenerics/Generic/GenericStream.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericStream.inc

@@ -1 +1 @@
 {$IFDEF INTERFACE}
 
-TGStreamItemArray = array of TGStreamItem;
 
 // TGStream<TGStreamIndex, TGStreamItem> = class
 TGStream = class
-  procedure SetSize(AValue: TGStreamIndex);
+public
+  type
+    TItemArray = array of TGStreamItem;
+private
+procedure SetSize(AValue: TGStreamIndex);
   function GetSize: TGStreamIndex;
   procedure SetPosition(AValue: TGStreamIndex);
@@ -15 +18 @@
   procedure WriteStream(Stream: TGStream; Count: TGStreamIndex); virtual; abstract;
   function Read: TGStreamItem; virtual; abstract;
-  function ReadArray(Count: TGStreamIndex): TGStreamItemArray; virtual; abstract;
+  function ReadArray(Count: TGStreamIndex): TItemArray; virtual; abstract;
   function ReadStream(Stream: TGStream; Count: TGStreamIndex): TGStreamIndex; virtual; abstract;
   function Insert(Count: TGStreamIndex): TGStreamIndex; virtual; abstract;