Results 1 to 5 of 5

Thread: NLDRcsLists

  1. #1

    NLDRcsLists

    Een nieuwe unit toegevoegd in NLDDanyUtils: NLDRcsLists.

    Zoals de naam zegt: NLDRcsLists bevat classes voor een (nu nog) 2-tal "Lists"

    - TIntegerList (de naam zegt alles denk ik)
    - TStringListList: een lijst van TStringLists

    Veel plezier..

    ------------
    De sources van NLDDanyUtils zijn te vinden in:
    ftp://ftp.nldelphi.com/public/OpenSo.../NLDDanyUtils/
    ------------

    Code:
    interface
    
    uses Classes;
    
    type
    
      TIntegerList = class
      private
        FList: array of Integer;
        FCount: Integer;
        FCapacity: Integer;
        procedure SetVal(Index: Integer; Value: Integer);
        function GetVal(Index: Integer): Integer;
        procedure AddCapacity;
      public
        constructor Create;
        destructor Destroy; override;
        procedure Clear;
        procedure Add(Val: Integer);
        procedure Insert(Index, Val: Integer);
        procedure Delete(Index: Integer);
        procedure Exchange(Index1, Index2: Integer);
        property Count: Integer read FCount write FCount;
        property Value[Index: Integer]: Integer read GetVal write SetVal; default;
      end;
    
      TStringListList = class
      private
        FStringListList: array of TStringList; // the stringlists
        FCount: Integer; // number of Stringlists
        Lut: TIntegerList; // LookUp Table
        function GetList(ListIndex: Integer): TStringList;
        procedure SetList(ListIndex: Integer; Val: TStringList);
        procedure Add_;
      public
        constructor Create;
        destructor Destroy; override;
        procedure Clear;
        procedure Add; overload;
        procedure Add(Val: TStringList); overload;
        procedure Insert(Index: Integer); overload;
        procedure Insert(Index: Integer; Val: TStringList); overload;
        procedure Delete(Index: Integer);
        procedure Exchange(Index1, Index2: Integer);
        property Count: Integer read FCount write FCount;
        property StringList[ListIndex: Integer]: TStringList read GetList write SetList; default;
      end;

  2. #2
    Nieuwe versie van NLDRCSLists, zie attachment: NLDRcsLists.pas
    Vriendelijke groeten,
    Dany

  3. #3
    Vriendelijke groeten,
    Dany

  4. #4
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Hoe relevant is deze nog in het generics tijdperk?

  5. #5
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Altijd handig voor mensen met D2007 of lager.
    (Al zal ik hem niet zo snel nodig hebben)
    TMemoryLeak.Create(Nil);

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •