Overridden to re-implement the method from the ancestor class.

Overridden to re-implement the method from the ancestor class.

BuildArrays is a method used to clear and build the internal array with the line ranges for the values in Text. BuildArrays detects the number of end-of-line sequences in Text, allocates memory for the dynamic array, and fills the TTextLineRange instances with their values.

BuildArrays is called from methods used to read or write values in the Strings, Objects, or Count properties. It is called when the internal flag that indicates the array is valid has not been set.

GetCount is overridden in TTextStrings to re-implement the method. It ensures that the internal array of line ranges is valid, and calls BuildArrays when the validity flag has not been set.

The property value is set to the member value used to store the line count.

GetCount does not call the inherited method.

Changed is a method used to perform actions needed after the value in the Text property has been changed. If BeginUpdate has been called without a corresponding EndUpdate call, no actions are performed in the method. Otherwise, the OnChange event handler is signalled (when assigned).

Changed is called from the EndUpdate method when Text was modified following assignments to property values.

Changing is a method used to perform actions needed when property values in the component are being updated. It mimics the Changing behavior implemented in TStringList, where methods call Changing prior to updates to the Strings or Objects properties.

In TTextStrings, the method signals the OnChanging event handler (when assigned) if there are no updates already in progress.

See Changed for the actions performed after property values have been updated.

ClearArrays is a method used to free resources allocated to the internal array with the line ranges for the component. ClearArrays frees memory allocated for the TTextLineRange instances in the array, and sets the references to Nil.

The internal validity flag and the line counter are both reset to indicate that the array has not not been allocated.

ClearArrays is called from the BuildArrays, Clear, and AddStrings methods.

Create is the overridden constructor for the class instance, and calls the inherited method on entry. Create calls the CheckSpecialChars method (in the ancestor) to ensure that default values have assigned for the following properties:

• QuoteChar (")
• Delimiter (,)
• NameValueSeparator (=)
• TextLineBreakStyle (platform specific)

Destroy is the overridden destructor for the class instance. It calls the Clear method to remove the values in the component, and free the resources allocated to the internal array of line ranges.

Destroy calls the inherited destructor prior to exiting from the method.

Clear is an overridden method which implements the abstract virtual method declared in the ancestor. It is used to remove the Text and line range information used in the component.

Clear calls the ClearArrays method to free TTextLineRange resources allocated to the internal dynamic array. The internal line counter is reset to 0 (zero), and the Text property is set to an empty string ('').

Clear is called when the component is freed, and before reading string values in the LCL component streaming mechanism.

SetText is an overridden method used to set the value for the Text property using the specified PChar value.

SetText stores the value in TheText to the member used for the Text property. It also resets the internal validity flag for the array of of line ranges. This forces the TTextLineRange instances to be re-populated during the next read access to Strings or Objects.

SetText re-implements the method from the ancestor, and does not call the inherited method.

Insert is an overridden method used to insert the line of text in S at the position specified in Index.

Index contains the ordinal position in Strings where the line of text is inserted. Index must be in the range 0..Count-1 or an EListError exception is raised.

S contains the line of text inserted in the method. S can contain an end-of-line sequence, but it is not required. The LineEnding for the platform is appended to the value in S if it is not already present.

Insert calls BuildArrays to populate the array of TTextLineRange instances when the internal validity flag is not set. It also ensures that the internal array is re-allocated when the number of lines reaches the line capacity. Line capacity starts at eight (8), and doubles each time the capacity is filled.

Memory allocated for the TTextLineRange instances is shifted when Index is not the last line of text in the component. The text in S, and the start and end positions in Text are stored in the line range information. The range information for lines after Index is adjusted to reflect the length of the inserted text.

Insert re-implements the method defined in the ancestor, and does not call the inherited method.

Use Add or AddStrings to append one or more lines of text to the values in Strings.

Delete is an overridden method used to delete the line of text at the specified position. BuildArrays is called to populate the internal array of TTextLineRange instances when the internal validity flag is not set.

Index contains the ordinal position in Strings for the line of text removed in the method. Index must be in the range 0..Count-1 or an EStringListError exception is raised.

Line range information is used to adjust both Text and the internal array of TTextLineRange instance. The line, including end-of-line characters, is removed from Text. The line counter is decremented, and the array of line ranges is updated. Line ranges after Index are updated to move their start and end positions downward by the length of the removed line. The memory at the end of the line ranges is zero-filled to prevent corruption.

Exchange is an overridden method used to swap the line values at the positions specified in Index1 and Index2. No actions are performed in the method when Index1 and Index2 contain the same value.

Values in Index1 and Index2 must be in the range 0..Count-1 or an EStringListError exception is raised.

BuildArrays is called to populate the internal array of TTextLineRange instances when the internal validity flag is not set. MakeTextBufferUnique is called to ensure that the reference count for the Text member is 1.

When Index2 is the last line of text, a LineEnding sequence is added to Text when not already present.

GetLineLen is called to get the length for both lines including end-of-line characters. Temporary buffers are allocated for both TTextLineRange instances, and a memory buffer is allocated using the size for the larger of the two lines. The largest line is saved to the memory buffer, and used to shift the values in Text as needed. Range information for lines between Index1 and Index2 are adjusted to reflect their new start and end positions.

Exchange also swaps the values in the Objects property at the specified index positions.

Exchange re-implements the method defined in the ancestor, and does not call the inherited method.

Calls the UniqueString routine from the RTL system unit.

BeginUpdate is a method used to start an update process for the component. It increments an internal update counter used to consolidate OnChanging and OnChange event notifications. The counter value is used in the Changing and Changed methods, and controls when the event notifications are enabled and performed.

Use EndUpdate to decrement the internal update counter.

EndUpdate is a method used to finish an active update process for the component.

For each call to BeginUpdate, there needs to be a corresponding call to EndUpdate. The methods are used as a pair to consolidate OnChanging and OnChange event notifications.

EndUpdate decrements the internal update counter incremented by calling BeginUpdate. When the update counter is a positive non-zero value, the Changed method is not called and the OnChange event handler is not signalled.

An Exception is raised if the internal update counter is <= 0 when the method is called. When the counter value reaches 0, the Changed method is called to signal the OnChange event handler (when assigned).

Use BeginUpdate to start an update process by incrementing the value for the internal counter.

Calls AddObject to append the value in S. Nil is used as the value for the object parameter.

Adds a LineEnding if the value in Text does not already end with one of the end-of-line characters.

Calls BuildArrays when an object instance has been assigned to AObject.

Recalculates the number of lines in the internal line ranges array. If the number of lines is larger than the current capacity for the array, the capacity is doubled. The memory for the line range array is re-allocated to the new capacity, and the unused portion is zero-filled.

The value in AObject is stored in the TTextLineRange instance for the new line. The start and end positions, and the text are stored in the line range information.

The internal line count is incremented prior to exiting from the method.

AddStrings is an overridden method in TTextStrings used to add the lines of text in TheStrings to the current class instance. No actions are performed in the method when TheStrings does not contain any lines of text.

Builds (or re-builds) the internal array of line ranges for the class instance. Values from the Objects property in TheStrings are also copied in the method.

Creates a temporary TFileStream instance for the FileName argument. The file handle is opened for reading, and shared write access is denied. The inherited LoadFromStream method is called to load the values in the string list from the file stream.

Creates a temporary TFileStream instance for the FileName argument. The file is created if it does not already exist. The inherited SaveToStream method is called to store content in the string list to the file stream.

Text is a String property which contains the textual representation for the values in the Strings property. TTextStrings re-implements the Text property as defined in TStrings. The write specifier (SetTextStr) is overridden, and forces the internal array of line ranges to be rebuilt during the next read access.

OnChange is a TNotifyEvent property with the event handler signalled when values in the Strings and/or Objects properties have been changed.

OnChange is signalled from the Changed method, and occurs after the property value(s) are stored in the component.

OnChanging is a TNotifyEvent property with the event handler signalled before the Strings or Objects properties are updated in the component.

OnChanging is signalled from the Changing method when an update process in not already active.