View source for TLinkedStringList

Return to [[Unit_UltiboClasses|Unit UltiboClasses]]


__TOC__

=== Description ===
----

''To be documented''

=== Class definitions ===
----


<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">

<code>TLinkedStringList = class(TStrings)</code>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
|colspan="2"|Note: A List of TStringObjects with automatic Prev/Next Links
Mostly identical methods to TStringList with addition of First/Last/Next/Prev
|-
|colspan="2"|&nbsp;
|-
|colspan="2"|Note: Currently does not implement Sorting or Duplicate handling
|-
|colspan="2"|&nbsp;
|-
| <code>constructor Create;</code>
| style="width: 50%;"|&nbsp;
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''public''' (Public destructor for FPC RTL)</div> 
|-
| <code>destructor Destroy; override;</code>
| &nbsp;
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
|-
| <code>FCount:Integer;</code>
| &nbsp;
|-
| <code>FFirst:TStringObject;</code>
| &nbsp;
|-
| <code>FLast:TStringObject;</code>
| &nbsp;
|-
| <code>FSorted:Boolean;</code>
| &nbsp;
|-
| <code>FUpdating:Boolean;</code>
| &nbsp;
|-
| <code>FDuplicates:TDuplicates;</code>
| &nbsp;
|-
| <code>FOnChange:TNotifyEvent;</code>
| &nbsp;
|-
| <code>FOnChanging:TNotifyEvent;</code>
| &nbsp;
|-
| <code>procedure QuickSort(L,R:Integer);</code>
| &nbsp;
|-
| <code>procedure SetSorted(Value:Boolean);</code>
| &nbsp;
|-
|colspan="2"|&nbsp;
|-
| <code>function GetItem(AIndex:Integer):TStringObject;</code>
| &nbsp;
|-
|colspan="2"|&nbsp;
|-
| <code>function Link(AValue:TStringObject):Boolean;</code>
| &nbsp;
|-
| <code>function LinkEx(APrev,AValue:TStringObject):Boolean;</code>
| &nbsp;
|-
| <code>function Unlink(AValue:TStringObject):Boolean;</code>
| &nbsp;
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
|-
| <code>procedure ClearList; virtual;</code>
| &nbsp;
|-
|colspan="2"|&nbsp;
|-
| <code>procedure Changed; virtual;</code>
| &nbsp;
|-
| <code>procedure Changing; virtual;</code>
| &nbsp;
|-
| <code>function Get(Index:Integer):String; override;</code>
| &nbsp;
|-
| <code>function GetCount:Integer; override;</code>
| &nbsp;
|-
| <code>function GetObject(Index:Integer):TObject; override;</code>
| &nbsp;
|-
| <code>procedure Put(Index:Integer; const S:String); override;</code>
| &nbsp;
|-
| <code>procedure PutObject(Index:Integer; AObject:TObject); override;</code>
| &nbsp;
|-
| <code>procedure SetUpdateState(Updating:Boolean); override;</code>
| &nbsp;
|-
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
|-
| <code>function Add(const S:String):Integer; override;</code>
| &nbsp;
|-
| <code>procedure Clear; override;</code>
| &nbsp;
|-
| <code>procedure Delete(Index:Integer); override;</code>
| &nbsp;
|-
| <code>procedure Exchange(Index1,Index2:Integer); override;</code>
| &nbsp;
|-
| <code>function Find(const S:String; var Index:Integer):Boolean; virtual;</code>
| &nbsp;
|-
| <code>function IndexOf(const S:String):Integer; override;</code>
| &nbsp;
|-
| <code>procedure Insert(Index:Integer; const S:String); override;</code>
| &nbsp;
|-
| <code>procedure Sort; virtual;</code>
| &nbsp;
|-
| <code>property First:TStringObject read FFirst;</code>
| &nbsp;
|-
| <code>property Last:TStringObject read FLast;</code>
| &nbsp;
|-
| <code>property Duplicates:TDuplicates read FDuplicates write FDuplicates;</code>
| &nbsp;
|-
| <code>property Sorted:Boolean read FSorted write SetSorted;</code>
| &nbsp;
|-
| <code>property OnChange:TNotifyEvent read FOnChange write FOnChange;</code>
| &nbsp;
|-
| <code>property OnChanging:TNotifyEvent read FOnChanging write FOnChanging;</code>
| &nbsp;
|-
|}
</div></div>  
<br />

=== Function declarations ===
----


<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">constructor TLinkedStringList.Create;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">destructor TLinkedStringList.Destroy;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.GetItem(AIndex:Integer):TStringObject;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.Link(AValue:TStringObject):Boolean;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' Link AValue to Prev,Next Siblings and Adjust First/Last</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.LinkEx(APrev,AValue:TStringObject):Boolean;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' Link AValue after APrev Sibling and Adjust First/Last/Prev/Next</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| If APrev is nil then Link as first value in list
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.Unlink(AValue:TStringObject):Boolean;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' Unlink AValue from Prev,Next Siblings and Adjust First/Last</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.ClearList;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Changed;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Changing;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.Get(Index:Integer):String;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.GetCount:Integer;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.GetObject(Index:Integer):TObject;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Put(Index:Integer;const S:String);</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.PutObject(Index:Integer; AObject:TObject);</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.SetUpdateState(Updating:Boolean);</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.Add(const S:String):Integer;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Clear;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Delete(Index:Integer);</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Exchange(Index1,Index2:Integer);</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TLinkedStringList.IndexOf(const S:String):Integer;</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' Uses Counted Index starting from First String Object</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TLinkedStringList.Insert(Index:Integer; const S:String);</pre>
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
{| class="wikitable" style="font-size: 14px; background: white;"
|-
! Note
| None documented
|-
|}
</div></div>
<br />

Return to [[Unit_Reference|Unit Reference]]