Changeset 30 for trunk/Components/TemplateGenerics/Specialized/SpecializedList.pas

Timestamp:

Sep 8, 2012, 9:28:39 PM (12 years ago)

Author:

chronos

Message:

• Updated: Component versions.
• Added: Missing forms.

Location:

trunk

Files:

• . (modified) (1 prop)
• Components/TemplateGenerics (modified) (1 prop)
• Components/TemplateGenerics/Specialized/SpecializedList.pas (modified) (8 diffs)

trunk

@@ -3 +3 @@
 backup
 tunneler.exe
+heaptrclog.trc

@@ -3 +3 @@
 backup
 tunneler.exe
+heaptrclog.trc

trunk/Components/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);
+  procedure WriteToStreamPart(Stream: TStream; ItemIndex, ItemCount: TGListIndex);
+  procedure ReplaceStream(Stream: TStream);
+  procedure ReplaceStreamPart(Stream: TStream; ItemIndex, ItemCount: TGListIndex);
+  procedure AddStream(Stream: TStream);
+  procedure AddStreamPart(Stream: TStream; ItemCount: TGListIndex);
+  procedure WriteBuffer(var Buffer; Count: Integer);
+  procedure ReadBuffer(var Buffer; Count: Integer);
+end;
 
 // TListChar<Integer, Char>
@@ -137 +148 @@
 TListMethod = class(TListMethodBase)
   procedure CallAll;
-  procedure CallNotifyEvents(Sender: TObject);
-end;
+end;
+
+// TListNotifyEventBase<Integer, TNotifyEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TNotifyEvent}
+{$DEFINE TGList := TListNotifyEventBase}
+{$DEFINE TGListSortCompare := TListNotifyEventSortCompare}
+{$DEFINE TGListToStringConverter := TListNotifyEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListNotifyEventFromStringConverter}
+{$DEFINE TGListItemArray := TListNotifyEventItemArray}
+{$DEFINE INTERFACE}
+{$I 'GenericList.inc'}
+
+// TListNotifyEvent<Integer, TNotifyEvent>
+TListNotifyEvent = class(TListNotifyEventBase)
+  procedure CallAll(Sender: TObject);
+end;
+
+
+TBaseEvent = procedure of object;
+
+// TListSimpleEventBase<Integer, TBaseEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TBaseEvent}
+{$DEFINE TGList := TListSimpleEventBase}
+{$DEFINE TGListSortCompare := TListSimpleEventSortCompare}
+{$DEFINE TGListToStringConverter := TListSimpleEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListSimpleEventFromStringConverter}
+{$DEFINE TGListItemArray := TListSimpleEventItemArray}
+{$DEFINE INTERFACE}
+{$I 'GenericList.inc'}
+
+// TListSimpleEvent<Integer, TSimpleEvent>
+TListSimpleEvent = class(TListSimpleEventBase)
+  procedure CallAll;
+end;
+
 
 function StrToStr(Value: string): string;
@@ -216 +262 @@
 {$DEFINE TGListIndex := Integer}
 {$DEFINE TGListItem := Byte}
-{$DEFINE TGList := TListByte}
+{$DEFINE TGList := TListByteBase}
 {$DEFINE TGListSortCompare := TListByteSortCompare}
 {$DEFINE TGListToStringConverter := TListByteToStringConverter}
@@ -258 +304 @@
 {$I 'GenericList.inc'}
 
+// TListNotifyEventBase<Integer, TNotifyEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TNotifyEvent}
+{$DEFINE TGList := TListNotifyEventBase}
+{$DEFINE TGListSortCompare := TListNotifyEventSortCompare}
+{$DEFINE TGListToStringConverter := TListNotifyEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListNotifyEventFromStringConverter}
+{$DEFINE TGListItemArray := TListNotifyEventItemArray}
+{$DEFINE IMPLEMENTATION}
+{$I 'GenericList.inc'}
+
+// TListSimpleEventBase<Integer, TBaseEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TBaseEvent}
+{$DEFINE TGList := TListSimpleEventBase}
+{$DEFINE TGListSortCompare := TListSimpleEventSortCompare}
+{$DEFINE TGListToStringConverter := TListSimpleEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListSimpleEventFromStringConverter}
+{$DEFINE TGListItemArray := TListSimpleEventItemArray}
+{$DEFINE IMPLEMENTATION}
+{$I 'GenericList.inc'}
+
+
 
 function StrToStr(Value: string): string;
@@ -263 +332 @@
   Result := Value;
 end;
+
+{ TListSimpleEvent }
+
+procedure TListSimpleEvent.CallAll;
+var
+  I: TGListIndex;
+begin
+  I := 0;
+  while (I < Count) do begin
+    TBaseEvent(Items[I])();
+    I := I + 1;
+  end;
+end;
+
 
 { TListChar }
@@ -323 +406 @@
 end;
 
-procedure TListMethod.CallNotifyEvents(Sender: TObject);
+procedure TListNotifyEvent.CallAll(Sender: TObject);
 var
   I: TGListIndex;
@@ -334 +417 @@
 end;
 
+{ TListByte }
+
+procedure TListByte.WriteToStream(Stream: TStream);
+var
+  I: Integer;
+begin
+  Stream.Position := 0;
+  I := 0;
+  while I < Count do begin
+    Stream.WriteByte(Items[I]);
+    I := I + 1;
+  end;
+end;
+
+procedure TListByte.WriteToStreamPart(Stream: TStream; ItemIndex, ItemCount: Integer);
+var
+  I: Integer;
+begin
+  I := ItemIndex;
+  while I < ItemCount do begin
+    Stream.WriteByte(Items[I]);
+    I := I + 1;
+  end;
+end;
+
+procedure TListByte.ReplaceStream(Stream: TStream);
+var
+  I: Integer;
+begin
+  Stream.Position := 0;
+  I := 0;
+  while I < Count do begin
+    Items[I] := Stream.ReadByte;
+    I := I + 1;
+  end;
+end;
+
+procedure TListByte.ReplaceStreamPart(Stream: TStream; ItemIndex,
+  ItemCount: Integer);
+var
+  I: Integer;
+begin
+  I := ItemIndex;
+  while I < ItemCount do begin
+    Items[I] := Stream.ReadByte;
+    I := I + 1;
+  end;
+end;
+
+procedure TListByte.AddStream(Stream: TStream);
+var
+  I: Integer;
+begin
+  Stream.Position := 0;
+  I := Count;
+  Count := Count + Stream.Size;
+  while I < Count do begin
+    Items[I] := Stream.ReadByte;
+    I := I + 1;
+  end;
+end;
+
+procedure TListByte.AddStreamPart(Stream: TStream; ItemCount: Integer);
+var
+  I: Integer;
+begin
+  I := Count;
+  Count := Count + ItemCount;
+  while I < Count do begin
+    Items[I] := Stream.ReadByte;
+    I := I + 1;
+  end;
+end;
+
+procedure TListByte.WriteBuffer(var Buffer; Count: Integer);
+begin
+
+end;
+
+procedure TListByte.ReadBuffer(var Buffer; Count: Integer);
+begin
+
+end;
+
 end.

@@ -3 +3 @@
 backup
 tunneler.exe
+heaptrclog.trc