Changeset 232 for Generics/TemplateGenerics/Specialized/SpecializedList.pas

Timestamp:

Apr 14, 2011, 12:49:38 PM (14 years ago)

Author:

george

Message:

 

File:

• Generics/TemplateGenerics/Specialized/SpecializedList.pas (modified) (4 diffs)

Generics/TemplateGenerics/Specialized/SpecializedList.pas

@@ -80 +80 @@
 {$DEFINE TGListIndex := Integer}
 {$DEFINE TGListItem := Byte}
-{$DEFINE TGList := TListByte}
+{$DEFINE TGList := TListByteBase}
 {$DEFINE TGListSortCompare := TListByteSortCompare}
 {$DEFINE TGListToStringConverter := TListByteToStringConverter}
@@ -87 +87 @@
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
+
+TListByte = class(TListByteBase)
+  procedure WriteToStream(Stream: TStream);
+end;
 
 // TListChar<Integer, Char>
@@ -216 +220 @@
 {$DEFINE TGListIndex := Integer}
 {$DEFINE TGListItem := Byte}
-{$DEFINE TGList := TListByte}
+{$DEFINE TGList := TListByteBase}
 {$DEFINE TGListSortCompare := TListByteSortCompare}
 {$DEFINE TGListToStringConverter := TListByteToStringConverter}
@@ -334 +338 @@
 end;
 
+procedure TListByte.WriteToStream(Stream: TStream);
+var
+  I: Integer;
+begin
+  I := 0;
+  while I < Count do
+    Stream.WriteByte(Items[I]);
+end;
+
+
 end.