Changeset 77 for Generics/TemplateGenerics/Generic/SetImplementation.tpl

Timestamp:

Oct 29, 2010, 1:26:32 PM (14 years ago)

Author:

george

Message:

• Added: Generic range type.
• Added: Specialized TListByte type which si simply memory block.
• Added: New functionality to TGList.

File:

• Generics/TemplateGenerics/Generic/SetImplementation.tpl (modified) (1 diff)

Generics/TemplateGenerics/Generic/SetImplementation.tpl

@@ -3 +3 @@
 { TGSet }
 
+function TGSet.IsIn(Item: TSetItem): Boolean;
+begin
+  Result := FList.IndexOf(Item) <> -1;
+end;
 
+constructor TGSet.Create;
+begin
+  FList := TGList.Create;
+end;
 
+destructor TGSet.Destroy;
+begin
+  FList.Free;
+  inherited Destroy;
+end;