Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Specialized/SetChar.pas

    r76 r77  
    2424{$INCLUDE '..\Generic\SetImplementation.tpl'}
    2525
    26 
    27 function TGSet.IsIn(Item: TSetItem): Boolean;
    28 begin
    29   Result := FList.IndexOf(Item) <> -1;
    30 end;
    31 
    32 constructor TGSet.Create;
    33 begin
    34   FList := TGList.Create;
    35 end;
    36 
    37 destructor TGSet.Destroy;
    38 begin
    39   FList.Free;
    40   inherited Destroy;
    41 end;
    42 
    4326end.
Note: See TracChangeset for help on using the changeset viewer.