Changeset 77 for Generics/TemplateGenerics/Specialized

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.

Location:

Generics/TemplateGenerics/Specialized

Files:

• ListByte.pas (added)
• ListChar.pas (modified) (1 diff)
• ListVariant.pas (modified) (1 diff)
• RangeDateTime.pas (added)
• SetChar.pas (modified) (1 diff)

Generics/TemplateGenerics/Specialized/ListChar.pas

@@ -24 +24 @@
     procedure TrimRight;
   end;
+  // System.Pos -> TListChar.IndexOfList
 
   TString = TListChar;

Generics/TemplateGenerics/Specialized/ListVariant.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, Variants;
 
 type

Generics/TemplateGenerics/Specialized/SetChar.pas

@@ -24 +24 @@
 {$INCLUDE '..\Generic\SetImplementation.tpl'}
 
-
-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;
-
 end.