Class TPCharList (unit mwPCharList)

Inherits from

TObject

TPCharList class

Constructors


constructor Create;

Remove } { TPCharList } { TPCharList constructor and destructor +++++++++++++++++++++++++++++++++++++


Functions

function Add(Item: String): Integer;

SetItems } { TPCharList public +++++++++++++++++++++++++++++++++++++++++++++++++++++++++

procedure Clear;

Add

procedure Delete(Index: Integer);

Clear

procedure DeleteChars(CharCount: LongInt);

ScanForLines

procedure DeleteGroup(StartIndex: LongInt; GroupCount: LongInt);

Delete

destructor Destroy;

Create

procedure Exchange(Index1, Index2: Integer);

DeleteGroup

function First: String;

Exchange

function IndexOf(Item: String): Integer;

First

procedure Insert(Index: Integer; Item: String);

IndexOf

function InsertString(StartIndex: LongInt; ToInsert: String): LongInt;

Insert

function Last: String;

InsertString

procedure Move(CurIndex, NewIndex: Integer);

Last

function MoveGroup(OldStartIndex: LongInt; NewStartIndex: LongInt; GroupCount: LongInt): Boolean;

Move

function ReadChars(CharCount: LongInt): String;

DeleteChars

function Remove(Item: String): Integer;

MoveGroup

procedure ScanForLines;

Remove

procedure WriteString(aString: String);

ReadChars

function GetItems(Index: Integer): String;

SetPosition } { TPCharList protected ++++++++++++++++++++++++++++++++++++++++++++++++++++++

procedure SetCapacity(NewCapacity: Integer);

GetItems

procedure SetItems(Index: Integer; Item: String);

SetCapacity

function GetCapacity: Integer;

SetCount

function GetCount: Integer;

WriteTo

procedure ResetPositionsFrom(Index, Value: LongInt);

GetCapacity

procedure SetCount(value: Integer);

GetCount

procedure SetOrigin(value: PChar);

Destroy } { TPCharList private ++++++++++++++++++++++++++++++++++++++++++++++++++++++

procedure SetPosition(value: Longint);

ResetPositionsFrom

procedure WriteTo(InsPos, DelPos: LongInt; Item: String);

SetOrigin

Properties

property Capacity : Integer


property Count : Integer


property Items : String


property LinePosList : TLongIntList


property Origin : PChar


property PCharCapacity : Longint


property PCharSize : Longint


property Position : Longint


Events

Variables

FLinePos : TLongIntList;


fOrigin : PChar;


fPCharCapacity : Longint;


fPCharSize : Longint;


fPosition : Longint;



Constructors


constructor Create;

Remove } { TPCharList } { TPCharList constructor and destructor +++++++++++++++++++++++++++++++++++++


Functions


function Add(Item: String): Integer;

SetItems } { TPCharList public +++++++++++++++++++++++++++++++++++++++++++++++++++++++++


procedure Clear;

Add


procedure Delete(Index: Integer);

Clear


procedure DeleteChars(CharCount: LongInt);

ScanForLines


procedure DeleteGroup(StartIndex: LongInt; GroupCount: LongInt);

Delete


destructor Destroy;

Create


procedure Exchange(Index1, Index2: Integer);

DeleteGroup


function First: String;

Exchange


function IndexOf(Item: String): Integer;

First


procedure Insert(Index: Integer; Item: String);

IndexOf


function InsertString(StartIndex: LongInt; ToInsert: String): LongInt;

Insert


function Last: String;

InsertString


procedure Move(CurIndex, NewIndex: Integer);

Last


function MoveGroup(OldStartIndex: LongInt; NewStartIndex: LongInt; GroupCount: LongInt): Boolean;

Move


function ReadChars(CharCount: LongInt): String;

DeleteChars


function Remove(Item: String): Integer;

MoveGroup


procedure ScanForLines;

Remove


procedure WriteString(aString: String);

ReadChars


function GetItems(Index: Integer): String;

SetPosition } { TPCharList protected ++++++++++++++++++++++++++++++++++++++++++++++++++++++


procedure SetCapacity(NewCapacity: Integer);

GetItems


procedure SetItems(Index: Integer; Item: String);

SetCapacity


function GetCapacity: Integer;

SetCount


function GetCount: Integer;

WriteTo


procedure ResetPositionsFrom(Index, Value: LongInt);

GetCapacity


procedure SetCount(value: Integer);

GetCount


procedure SetOrigin(value: PChar);

Destroy } { TPCharList private ++++++++++++++++++++++++++++++++++++++++++++++++++++++


procedure SetPosition(value: Longint);

ResetPositionsFrom


procedure WriteTo(InsPos, DelPos: LongInt; Item: String);

SetOrigin


Properties


property Capacity : Integer


property Count : Integer


property Items : String


property LinePosList : TLongIntList


property Origin : PChar


property PCharCapacity : Longint


property PCharSize : Longint


property Position : Longint


Events


Variables


FLinePos : TLongIntList;


fOrigin : PChar;


fPCharCapacity : Longint;


fPCharSize : Longint;


fPosition : Longint;