Changeset 90 for trunk/Packages/TemplateGenerics/Specialized/SpecializedList.pas

Timestamp:

Sep 7, 2012, 6:45:53 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Aktualizace balíčku TemplateGenerics na novější verzi. Se starou nešel projekt správně přeložit.

File:

• trunk/Packages/TemplateGenerics/Specialized/SpecializedList.pas (modified) (6 diffs)

trunk/Packages/TemplateGenerics/Specialized/SpecializedList.pas

@@ -95 +95 @@
   procedure AddStream(Stream: TStream);
   procedure AddStreamPart(Stream: TStream; ItemCount: TGListIndex);
+  procedure WriteBuffer(var Buffer; Count: Integer);
+  procedure ReadBuffer(var Buffer; Count: Integer);
 end;
 
@@ -146 +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;
@@ -267 +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;
@@ -272 +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 }
@@ -332 +406 @@
 end;
 
-procedure TListMethod.CallNotifyEvents(Sender: TObject);
+procedure TListNotifyEvent.CallAll(Sender: TObject);
 var
   I: TGListIndex;
@@ -417 +491 @@
 end;
 
+procedure TListByte.WriteBuffer(var Buffer; Count: Integer);
+begin
+
+end;
+
+procedure TListByte.ReadBuffer(var Buffer; Count: Integer);
+begin
+
+end;
+
 end.