Return to Unit UltiboClasses
Description
To be documented
Class definitions
[Expand]
TStringListEx = class(TStrings)
| Note: A String List class that does not use realloc to grow
Mostly identical methods to TStringList with addition of block list
|
|
|
| Note: Currently does not implement Sorting or Duplicate handling
|
|
|
constructor Create;
|
|
public (Public destructor for FPC RTL)
|
destructor Destroy; override;
|
|
private
|
FRecent:TStringBlock;
|
|
FBlocks:TLinkedObjList;
|
|
|
|
FCount:Integer;
|
|
FCapacity:Integer;
|
|
FSorted:Boolean;
|
|
FUpdating:Boolean;
|
|
FDuplicates:TDuplicates;
|
|
FOnChange:TNotifyEvent;
|
|
FOnChanging:TNotifyEvent;
|
|
procedure QuickSort(L,R:Integer);
|
|
procedure SetSorted(Value:Boolean);
|
|
|
|
function GetBlock(Index:Integer):TStringBlock;
|
|
function AddBlock(Block:TStringBlock; Index:Integer):TStringBlock;
|
|
function DeleteBlock(Block:TStringBlock):Boolean;
|
|
function UpdateBlocks(Block:TStringBlock):Boolean;
|
|
|
|
function GetItem(Block:TStringBlock; Index:Integer):TStringItemEx;
|
|
function AddItem(Block:TStringBlock; Index:Integer; Item:TStringItemEx):Boolean;
|
|
function DeleteItem(Block:TStringBlock; Index:Integer; Item:TStringItemEx):Boolean;
|
|
protected
|
procedure ClearList; virtual;
|
|
|
|
procedure Changed; virtual;
|
|
procedure Changing; virtual;
|
|
function Get(Index:Integer):String; override;
|
|
function GetCapacity:Integer; override;
|
|
function GetCount:Integer; override;
|
|
function GetObject(Index:Integer):TObject; override;
|
|
procedure Put(Index:Integer; const S:String); override;
|
|
procedure PutObject(Index:Integer; AObject:TObject); override;
|
|
procedure SetUpdateState(Updating:Boolean); override;
|
|
public
|
function Add(const S:String):Integer; override;
|
|
procedure Clear; override;
|
|
procedure Delete(Index:Integer); override;
|
|
procedure Exchange(Index1,Index2:Integer); override;
|
|
function Find(const S:String; var Index:Integer):Boolean; virtual;
|
|
function IndexOf(const S:String):Integer; override;
|
|
procedure Insert(Index:Integer; const S:String); override;
|
|
procedure Sort; virtual;
|
|
property Duplicates:TDuplicates read FDuplicates write FDuplicates;
|
|
property Sorted:Boolean read FSorted write SetSorted;
|
|
property OnChange:TNotifyEvent read FOnChange write FOnChange;
|
|
property OnChanging:TNotifyEvent read FOnChanging write FOnChanging;
|
|
Function declarations
[Expand]
constructor TStringListEx.Create;
Description: To be documented
[Expand]
destructor TStringListEx.Destroy;
Description: To be documented
[Expand]
function TStringListEx.GetBlock(Index:Integer):TStringBlock;
Description: To be documented
[Expand]
function TStringListEx.AddBlock(Block:TStringBlock; Index:Integer):TStringBlock;
Description: To be documented
| Index
|
Starting Index of Block to be Added
|
| Block
|
Current Block containing Index or nil
|
[Expand]
function TStringListEx.DeleteBlock(Block:TStringBlock):Boolean;
Description: To be documented
[Expand]
function TStringListEx.UpdateBlocks(Block:TStringBlock):Boolean;
Description: To be documented
[Expand]
function TStringListEx.GetItem(Block:TStringBlock; Index:Integer):TStringItemEx;
Description: To be documented
[Expand]
function TStringListEx.AddItem(Block:TStringBlock; Index:Integer; Item:TStringItemEx):Boolean;
Description: To be documented
[Expand]
function TStringListEx.DeleteItem(Block:TStringBlock; Index:Integer; Item:TStringItemEx):Boolean;
Description: To be documented
[Expand]
procedure TStringListEx.ClearList;
Description: To be documented
[Expand]
procedure TStringListEx.Changed;
Description: To be documented
[Expand]
procedure TStringListEx.Changing;
Description: To be documented
[Expand]
function TStringListEx.Get(Index:Integer):String;
Description: To be documented
[Expand]
function TStringListEx.GetCapacity:Integer;
Description: To be documented
[Expand]
function TStringListEx.GetCount:Integer;
Description: To be documented
[Expand]
function TStringListEx.GetObject(Index:Integer):TObject;
Description: To be documented
[Expand]
procedure TStringListEx.Put(Index:Integer; const S:String);
Description: To be documented
[Expand]
procedure TStringListEx.PutObject(Index:Integer; AObject:TObject);
Description: To be documented
[Expand]
procedure TStringListEx.SetUpdateState(Updating:Boolean);
Description: To be documented
[Expand]
function TStringListEx.Add(const S:String):Integer;
Description: To be documented
[Expand]
procedure TStringListEx.Clear;
Description: To be documented
[Expand]
procedure TStringListEx.Delete(Index:Integer);
Description: To be documented
[Expand]
procedure TStringListEx.Exchange(Index1,Index2:Integer);
Description: To be documented
[Expand]
function TStringListEx.IndexOf(const S:String):Integer;
Description: Uses Counted Index within the Block of the matched String Object
[Expand]
procedure TStringListEx.Insert(Index:Integer; const S:String);
Description: To be documented
Return to Unit Reference
