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;
Bookmarks