/
lasersquad
/
DynamicArrays
Обзор
Документация
Войти
/
lasersquad
/
DynamicArrays
Код
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
dynamicarrays/docs/Delphi/DynamicArrays.html
1 471 строка
52 KB
lasersquad
no message
09 мар 2003, 23:29
09 мар 2003, 23:29
e7ab7c9
Код
Авторство
О чём код?
<HTML> <HEAD> <TITLE>Dynamic Arrays</TITLE> </HEAD> <BODY > <table width="100%" border="0" cellpadding="5" cellspacing="0"> <tr> <td align=center bgColor=#009999 bgcolor="#264b99"> <font face="verdana,arial" size="5" color="#FFFFFF"> <b>������������ ������� <br>(Arrays)</b></font><br> <font face="verdana,arial" size="2" color="#FFFFFF"><b> Version 2.0</b><br></font> </td> </tr> </table> <font face="verdana,arial" size=2> <p>Copyright © 1998-2001 by Andrey Romanchenko<br> All rights reserved. <p><table cellspacing=2 cellpadding=0> <tr> <td><font face="verdana,arial" size=2> <i>e-mail: </i></font> </td> <td><font face="verdana,arial" size=2> <a href="mailto:lasersquard@yahoo.com?subject=Dynamic Arrays version 2.0">lasersquad@tut.by</a></font> </td> </tr> <tr> <td><font face="verdana,arial" size=2> <i>web site: </i></font> </td> <td><font face="verdana,arial" size=2> <a href="http://DynamicArrays.narod.ru" target=_new>http://DynamicArrays.narod.ru/</a></font> </td> </tr> <tr> <td></td> <td><font face="verdana,arial" size=2> <!-- (������ �����: <a href="http://www.dynamicarrays.cjb.net/" target=_new>http://www.dynamicarrays.cjb.net/</a>)</font>--> </td> </tr> </table> <h3>����������</h3> <ul> <li> <a href="#commondescr">����� ��������</a> <li> <a href="#instalation">����������</a> <li> <a href="#globals">���������� �����������</a> <li> ������ <ul> <li> <a href="#THArray">THArray</a> <li> <a href="#THArrayInteger">THArrayInteger</a> <li> <a href="#THArrayByte">THArrayByte</a> <li> <a href="#THArraySmallInt">THArraySmallInt</a> <li> <a href="#THArrayWord"> THArrayWord</a> <li> <a href="#THArrayLongWord">THArrayLongWord</a> <li> <a href="#THArrayInt64">THArrayInt64</a> <li> <a href="#THArrayBoolean">THArrayBoolean</a> <li> <a href="#THArrayPointer">THArrayPointer</a> <li> <a href="#THArrayObjects">THArrayObjects</a> <li> <a href="#THArrayCurrency">THArrayCurrency</a> <li> <a href="#THArrayDouble"> THArrayDouble</a> <li> <a href="#THArrayExtended">THArrayExtended</a> <li> <a href="#THArrayString"> THArrayString</a> <li> <a href="#THArrayStringFix">THArrayStringFix</a> <li> <a href="#THArrayWideStrings"> THArrayWideStrings</a> </ul> </ul> <hr> <a name="commondescr"></a> <h3>����� ��������</h3> ������������ ������� ��� ������ �������� ��� ��������, �������� ������ � ��������������� ������� ��������� ����� ������������ � ����� <strong>Delphi</strong>. <br><br> ������ ��� �������� ������ ���������� ����������� �� ���� ����� ���������� ��������� � �������.<br><br> ������ ���������� �� ������� ������� ���������� ��������� �� ������������ ��������� ��� �� �������������� ���������� �������� �� ��������� ������ � ������� ��� �������� ������������������.<br><br> ��� ������ � ������������ �������� ����������� �� ���������� � �������� ����� ������.<br><br> ��� ������� zero based �.�. ������ ������� ������� ����� ������ 0, ������ 1 � �.�. <br><br> <hr> <a name="instalation"></a> <h3>����������</h3> ������������ ������� �� ������� ������� ����������. ���������� �������� ������ <strong>DynamicArrays.pas</strong> � ������ <strong>uses</strong> ������� ������ ������ ������� � ���. ������ �� �������� ������� <strong>Delphi</strong> ���� ��� �� ���������� ���� <strong>DynamicArrays.pas</strong>. ��� ����� ������� ���� � <ul> <li>/Tools/Environment Options/Library/Library Path/ </ul> ���� � <ul> <li>/Project/Project Options/Directories Conditionals/Search Path/ </ul> <hr> <a name="globals"></a> <h3>���������� �����������</h3> � <strong>DynamicArrays.pas</strong> ���������� ��������� ���������� ���� ������� �� ������ ������������ � ����� ����������.<br> ��� ���� ������:<br> <font face="Courier New"> <strong>pboolean</strong> = ^boolean;<br> <strong>ppointer</strong> = ^pointer;<br> </font> <br> � ��� �� ��� callback �������: <a name="FindProc"></a> <a name="CompareProc"></a> <a name="SwapProc"></a> <ul> <li><font face="Courier New"> <strong>TCompareProc</strong> = function(arr : THArray;i,j : integer) : integer;</li><br></font> ���������������� ������� ��������� 2-� ��������� (� ��������� i � j).<br> ������ ����������:<br> 0 - �������� ��������� <br> 1 - arr[i] > arr[j] <br> -1 - arr[i] < arr[j]. <br> ������������ � ������� <a href="#Sort">Sort</a> � <a href="#QuickSort">QuickSort</a>. <li><font face="Courier New"> <strong>TSwapProc</strong> = procedure(arr : THArray;i,j : integer) of object;</li></font><br> ���������������� ������� ��� ����� ������������ ������ ������� 2-� ��������.<br> ������������ �-���� <a href="#QuickSort">QuickSort</a>. <li><font face="Courier New"> <strong>TFindProc</strong> = function(arr : THArray;i : integer; FindData:pointer):integer of object;</li></font><br> ������������ � ������� <a href="#QuickFind">QuickFind</a> </ul> <br> <hr> <a name="THArray"></a> <h3>THArray</h3> ��������� ������������ ������ ���������. <br> ������ �������� ����� ������� � ����� ���������, ��� ��� �� ����� ��� ������ ������ �������� � ������ (<a href="#ItemSize">ItemSize</a>). <br> �� �������� ����������� ������� � ������� ��������� ��������� ���������� ������ <strong>THArray</strong>, � �� ������ ��� ����������� ��� �������� <em>�����</em> ���������.<br> �������� ������� ���� ������� ������������ ��������. <br> �� <strong>THArray</strong> ����������� : <ul> <li> <a href="#THArrayInteger">THArrayInteger</a> <li> <a href="#THArrayByte">THArrayByte</a> <li> <a href="#THArraySmallInt">THArraySmallInt</a> <li> <a href="#THArrayWord"> THArrayWord</a> <li> <a href="#THArrayLongWord">THArrayLongWord</a> <li> <a href="#THArrayInt64">THArrayInt64</a> <li> <a href="#THArrayBoolean">THArrayBoolean</a> <li> <a href="#THArrayPointer">THArrayPointer</a> <li> <a href="#THArrayObjects">THArrayObjects</a> <li> <a href="#THArrayCurrency">THArrayCurrency</a> <li> <a href="#THArrayDouble"> THArrayDouble</a> <li> <a href="#THArrayExtended">THArrayExtended</a> <li> <a href="#THArrayString"> THArrayString</a> <li> <a href="#THArrayStringFix">THArrayStringFix</a> <li> <a href="#THArrayWideStrings"> THArrayWideStrings</a> </ul> ��� ������ ������ <strong>THArray</strong> �������� � ����������� �� ������ � ������ (��������� ���� pointer) �.�. ��� �������� ������ ��� THArray �� ���������. �������� ������� <a href="#Add">Add</a>(pValue:pointer) ��������� � ����� ������� <a href="#ItemSize">ItemSize</a> ������ ������ �� ������ �� ������ pValue. ���������� �������� ��� ������ ������ ������ <strong>THArray</strong>.<br> ����� <a href="#THArrayString"> THArrayString</a> �������� ������ ����������� ��� <strong>THArray </strong>��� ������ �� <strong>string</strong>.<br> ����� <a href="#THArrayStringFix"> THArrayStringFix</a> �������� �� �������� ������ ������������ ����� (�������� ��������� ���� � ����).<br> <br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"> <font face="verdana,arial" size=4> �������� </font></td> </tr> <tr> <a name="Capacity"></a> <td><font face="Courier New" size=2> <strong>Capacity</strong>:integer;</td> <td><font face="verdana,arial" size=2> �� ������� ��������� (<a href="#ItemSize">ItemSize</a> ���� ������) ��������� ������ </td> </tr> <tr> <td><font face="Courier New" size=2> <strong>Count</strong>:integer;</td> <td><font face="verdana,arial" size=2> ���������� ��������� � �������</td> </tr> <tr> <a Name="ItemSize"></a> <td><font face="Courier New" size=2> <strong>ItemSize</strong>:integer;</td> <td><font face="verdana,arial" size=2> ������ ������� ��������. ��� ��������� <strong>ItemSize </strong>�������� ����������� <a href="#ClearMem">ClearMem</a> � ��� ������ ��������. </font></td> </tr> <tr> <td><font face="Courier New" size=2> <strong>Memory</strong>:pointer;</td> <td><font face="verdana,arial" size=2> ��������� �� ������ ������� ���������.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"> <font face="verdana,arial" size=4> ������ </font></td> </tr> <tr> <a name="Add"></a> <td><font face="Courier New" size=2> function <strong>Add</strong>(pValue:pointer):integer;virtual;</td> <td><font face="verdana,arial" size=2> ��������� � ����� ������� �������� ����������� �� ������ <strong>pValue</strong>. ������ ������� �� <a href="#ItemSize">ItemSize</a>. ���������� ����� �������, ���� ���� ��������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>AddMany</strong>(pValue:pointer;Count:integer); </td> <td><font face="verdana,arial" size=2> ��������� ��������� �������� � ����� �������. ����� ������������ ��� ����������� ������ ������� � ������. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>AddFillValues</strong>(ACount:integer); </td> <td><font face="verdana,arial" size=2> ��������� <strong>ACount</strong> ��������� � ����� �������. ������ ���������� ������������ ���������� ����������.</td> </tr> <tr> <td><font face="Courier New" size=2> procedure<strong> Clear</strong>;virtual;</td> <td><font face="verdana,arial" size=2> ������ ������, �� ������ �� ����������� (��������� ��� �������� ����� ������). ���� ����� �������� ���������������� ������, �� ������ �������� ��������, ������ ������� �� ����������� - ��������� ��� �� ����� ������������� ������. ��. ����� ����� <a href="#ClearMem">ClearMem</a>. </td> </tr> <tr> <a name="ClearMem"></a> <td><font face="Courier New" size=2> procedure<strong> ClearMem</strong>;virtual;</td> <td><font face="verdana,arial" size=2> ������ ������, ��� ���� ���������� ��� ������.</td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>Delete</strong>(num:integer);virtual; </td> <td><font face="verdana,arial" size=2> ������� ������� � ������� <strong>num</strong>. ��� ��������� �������� ���������� � ������. ������ ��� ���� �� �������������. ��. ����� <a href="#Hold">Hold</a> ��� ������������ ��������� ������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>Insert</strong>(num:integer;pValue:pointer):integer;virtual; </td> <td><font face="verdana,arial" size=2> ��������� ��������, �� �� � �����, � � ������� <strong>num</strong>. ��� ��������� �������� ����������. ���������� ����� �������, ���� ���� ��������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>InsertMany</strong>(num:integer;pValue:pointer;Count:integer); </td> <td><font face="verdana,arial" size=2> �� �� �����, �� ��������� ��������.</td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:pointer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� �� ������� ��������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. <br> ���� � ������� �������� ������ ������� �� Value ����� ���� ���������� �� ������ ������� ����� �����. ��� ������ ���������� �������� ����� ������������ ����� <a href="#IndexOfFrom">IndexOfFrom</a>. ������ ����� ��������� ����� ���� ����� <strong>IndexOf</strong> ���������������� ��� ������ ��������� ������������� ���� (��� ��������� ������� �� ������ - �������� <a href="#THArrayInteger">THArrayInteger</a> ������ �������� <strong>integer</strong>), ������� ���� ������������ ����� ��������� <strong>THArray</strong> �� ������ ����� ������������ ��� ����� <strong>IndexOf</strong> ��� ������. </td> </tr> <tr> <a name="IndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:pointer;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� �� ������� ��������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������.<br> ������ ����� ��������� ����� ���� ����� <strong>IndexOfFrom</strong> ��������������� ��� ������ ��������� ������������� ���� (��� ��������� ������� �� ������, �������� <a href="#THArrayDouble">THArrayDouble</a> ������ �������� <strong>Double</strong>) ������� ���� ������������ ����� ��������� <strong>THArray</strong> �� ������ ����� ������������ ��� ����� <strong>IndexOfFrom</strong> ��� ������. </td> </tr> <tr> <a name="Hold"></a> <td><font face="Courier New" size=2> procedure <strong>Hold</strong>;</td> <td><font face="verdana,arial" size=2> ������ ������ ������ �������. �������� ������ ������ ��� ��� ��������, ������� ���� � �������. �� � ���������� ��������� �������� ����� ��� �������, ������ ��� ������� ������ ����� ������ ��� ���������� ������� �� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>Grow</strong>; </td> <td><font face="verdana,arial" size=2> ����������� ���������� ������ <a href="#Capacity">(Capacity)</a> ��� �������� ����� ��������� �� ������������ ���������. ��� ������� �������� (������ <strong>64</strong> ���������) ������ ������������� �� <strong>25%</strong>. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>GrowTo</strong>(Count:integer); </td> <td><font face="verdana,arial" size=2> ����������� ���������� ������ <a href="#Capacity">(Capacity)</a> ��� �������� ����� ���������. ����� ������ ���������� ������ ����������� �� ��������� ������� <strong>Capacity:=max(Capacity ���������� �� ������������ ���������, Count)</strong>. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>Get</strong>(num:integer;pValue:pointer);virtual; </td> <td><font face="verdana,arial" size=2> �������� �������� �������� � ������� <strong>num</strong>. ����� �������� ���� ����� ����� ������ <strong>pValue</strong>, � ������� ��������� ���� ��������. ��� ����������� �����������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>GetAddr</strong>(num:integer):pointer; </td> <td><font face="verdana,arial" size=2> �������� ����� �������� <strong>num</strong>. ����� ����������� ��� <strong>Memory+num*ItemSize</strong>.</td> </tr> <tr> <a name="LoadFromStream"></a> <td><font face="Courier New" size=2> procedure <strong>LoadFromStream</strong>(s:TStream);virtual; </td> <td><font face="verdana,arial" size=2> ������ ������ �� ������. ������ ������ ���� ����� <strong>integer</strong> - ���������� ��������� � �������, � ����� ���� �������� � ���� ������������ ����� ������. ��� ���������� ������ ����������� � ������� ����� ������������ ������ ������ ����. �������� ���� ����� ������� � ������� <strong>THArrayInteger</strong> �� � ������ ��� ����� � ������� <strong>THArrayInteger</strong>. <strong>THArraySmallInt</strong> ������ �� ������, �� �������� ������ �� ����� ������. ���� �� ���������� ����� � ������� <strong>THArraySmallInt</strong> � �������� ������ � ������� <strong>THArrayInteger</strong> �� ��������� ������ ������� � ������ �.�. ������ <strong>THArraySmallInt</strong> �������� ������ ����� � ������ ��� <strong>THArrayInteger</strong>.<br> ����� �������� ����������� � ����� ���� �������������.<br> ��. ��� �� <a href="#SaveToStream">SaveToStream</a> </td> </tr> <tr> <a name="SaveToStream"></a> <td><font face="Courier New" size=2> procedure <strong>SaveToStream</strong>(s:TStream);virtual; </td> <td><font face="verdana,arial" size=2> ���������� ������ � �����. ������ ������������ ���� ����� <strong>integer</strong> - ���������� ��������� � �������, � ����� �������� � ���� ������������ ����� ������.<br> ����� �������� ����������� � ����� ���� �������������.<br> ��. ��� �� <a href="#LoadFromStream">LoadFromStream</a> </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>MoveData</strong>(FromPos,Count,Offset:integer);virtual;</td> <td><font face="verdana,arial" size=2> ����������� ������ � �������, ������� � <strong>FromPos</strong> ����������� <strong>Count</strong> �� �������� <strong>Offset</strong>. </td> </tr> <tr> <a name="QuickFind"></a> <td><font face="Courier New" size=2> function <strong>QuickFind</strong>(FindProc:TFindProc;FindData:pointer):integer; </td> <td><font face="verdana,arial" size=2> ������� ����� � ��������������� ������� � ������� ���������������� �-��� <a href="#FindProc">FindProc</a>. <strong>FindData</strong> ��������� �� �������� ������� ����� ����� (���������� � <a href="#FindProc">FindProc</a>). ����� ������������ � ������ ������� ����� ��������� 2-� ��������� �� ����������� ������, �������� ���� <strong>THArray</strong> ������ ��������� ���� ����� �� ����� ������ �������������� ������. </td> </tr> <tr> <a name="QuickSort"></a> <td><font face="Courier New" size=2> procedure <strong>QuickSort</strong>(CompareProc:TCompareProc;SwapProc:TSwapProc=nil); </td> <td><font face="verdana,arial" size=2> ���������� ��������� ������� ������� ������� ����������. ��� ��������� 2-� ��������� ������������ ���������������� ������� <a href="#CompareProc">CompareProc</a>, � ��� ������ �� ������� �������������� ���������������� �-��� SwapProc. ���� <a href="#SwapProc">SwapProc</a> �� ������� �� ��� ������ ��������� ������� ������������ ����� <a href="#Swap">Swap</a>. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>SetCapacity</strong>(Value:integer); </td> <td><font face="verdana,arial" size=2> ��������� ������ ��� <strong>Value</strong> ��������. ���� �������� � ������� ���� ������, ������ ���������. </td> </tr> <tr> <a name="Sort"></a> <td><font face="Courier New" size=2> procedure <strong>Sort</strong>(CompareProc : TCompareProc); </td> <td><font face="verdana,arial" size=2> ���������� ��������� ������� ������� ��������. ��� ��������� 2-� ��������� ������������ ���������������� ������� <a href="#CompareProc">CompareProc</a>. </td> </tr> <tr> <a name="Swap"></a> <td><font face="Courier New" size=2> procedure <strong>Swap</strong>(Index1,Index2:integer);virtual; </td> <td><font face="verdana,arial" size=2> ������ ������� �������� � ��������� <strong>Index1</strong> � <strong>Index2</strong>. �� ���������� ������� <a href="#SwapProc">TSwapProc</a>. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>Update</strong>(num:integer;pValue:pointer);virtual;</td> <td><font face="verdana,arial" size=2> ������������� ������� ������� � �������� num � �������� ����������� �� ������ <strong>pValue</strong>.</td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>UpdateMany</strong>(num:integer;pValue:pointer;Count:integer); </td> <td><font face="verdana,arial" size=2> �� �� �� ��� ���������� ��������.</td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>Zero</strong>; </td> <td><font face="verdana,arial" size=2> �������� ������ ��� �������� ������. ����������� ���� ����� ��������� �.�. �� �������� ��� �������� ������ � �� ������������ ����� ��� ����������. </td> </tr> </table> <br> <hr> <a Name="THArrayInteger"></a> <h3>THArrayInteger</h3> ������ ��� �������� ����� �����. <br> ��� ������� ��������� � ��������������� ������� ������ ���������� <strong>ERangeError</strong>. <br> ����� �������������� � �������� �����. ��� ����� �������� ������ <a href="#Push">Push</a> � <a href="#Pop">Pop</a>. ������ ��������� �������� � ����� �������, � ������ ������ � ������� ��������� ��������. ������ <a href="#Push">Push</a> � <a href="#Pop">Pop</a> ���� ������ � <strong>THArrayInteger</strong>. ���� ����� ������ ����� ����� ��� ������ ������� ������ �������.<br> <strong> THArrayInteger</strong> ����� ��� ���������� ������ ��� ������� � �������� ������ �������� � ������ - <a href="#AddFromString">AddFromString</a>, <a href="#GetAsString">GetAsString</a> . <br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:integer; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <a name="AddFromString"></a> <td><font face="Courier New" size=2> procedure <strong>AddFromString</strong>(InputString,Delimiters:string);</td> <td><font face="verdana,arial" size=2> ��������� ������ �������� �� ������ <strong>InputString</strong> ����������� ������������� <strong>Delimiters</strong>. ��������� ������ ������ ������������ �������������� ��� ����. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:integer):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>CalcMax</strong>:integer; </td> <td><font face="verdana,arial" size=2> ���������� ������������ �������� � �������. ���� ������ ������ �� ���������� <strong>-1</strong>. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#IntegerIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="IntegerIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:integer;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> <tr> <a name="GetAsString"></a> <td><font face="Courier New" size=2> function <strong>GetAsString</strong>:string; </td> <td><font face="verdana,arial" size=2> �������� ��� �������� ������� � ������. �������� � ������ ��������� ��������. </td> </tr> <tr> <a name="Pop"></a> <td><font face="Courier New" size=2> function <strong>Pop</strong>:integer; </td> <td><font face="verdana,arial" size=2> ��������������� �������� �� �����. � �� ����� ���� ������� � ������� ��������� �������� � �������. ���� ������ ������ �� ������������ ���������� <strong>ERangeError</strong>. </td> </tr> <tr> <a name="Push"></a> <td><font face="Courier New" size=2> procedure <strong>Push</strong>(Value:integer); </td> <td><font face="verdana,arial" size=2> ���������� �������� � ����. � �� ����� ���� ��������� �������� � ����� �������. </td> </tr> </table> <br> <br> <a Name="THArrayByte"></a> <h3>THArrayByte</h3> ������ ��� �������� ����� <strong>byte</strong>, �� ���� ������� ������. <br> <strong>Byte</strong> ������������ ����� 8 ������� ����������� ����� ����� - ����������� ������� �������� ����������.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:byte; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:byte):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:byte):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#ByteIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="ByteIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:byte;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArraySmallInt"></a> <h3>THArraySmallInt</h3> ������ ��� �������� ����� <strong>SmallInt</strong>. <br> ������ <strong>SmallInt</strong> ������������ ����� 16 ������� �������� ����� �����.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:SmallInt; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:SmallInt):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:SmallInt):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#SmallIntIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="SmallIntIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:SmallInt;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArrayWord"> </a> <h3>THArrayWord</h3> ������ ��� �������� ����� � ������� <strong>Word</strong>.<br> ������ <strong>Word</strong> ������������ ����� 16 ������� ����������� ����� �����.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:Word; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:Word):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:Word):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#WordIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="WordIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:Word;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArrayLongWord"></a> <h3>THArrayLongWord</h3> ������ ��� �������� ����� � ������� <strong>LongWord</strong>.<br> ������ <strong>LongWord</strong> ������������ ����� 32 ������� ����������� ����� �����.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:LongWord; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:LongWord):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:LongWord):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#LongWordIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="LongWordIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:LongWord;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArrayInt64"></a> <h3>THArrayInt64</h3> ������ ��� �������� ����� � ������� <strong>Int64</strong>.<br> ������ <strong>Int64</strong> ������������ ����� 64 ������� �������� ����� �����.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:Int64; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:Int64):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:int64):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#int64IndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="int64IndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:int64;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArrayBoolean"></a> <h3>THArrayBoolean</h3> ������ ��� �������� ����� � ������� <strong>Boolean</strong>.<br> ������ <strong>boolean</strong> �������� ��� ���� ���� (Delphi �������������).<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:boolean; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:boolean):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:boolean):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#BooleanIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="BooleanIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:boolean;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArrayPointer"></a> <h3>THArrayPointer</h3> ������ ��� �������� ����������. <br> ��������� ����� ��������� ���� ������. ������� ����������� �������� ��� ��������� ������� <strong>THArrayPointer</strong> �� ����������.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:pointer; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:pointer):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:pointer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#PointerIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="PointerIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:pointer;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <br> <a Name="THArrayObjects"></a> <h3>THArrayObjects</h3> ������ ��� �������� ���������� �� ������ Delphi.<br> �������� ��������� �������������� ������� ��� ������ � ���������� ��� � ����������� �� <strong>TObject</strong>. ��������! ��� ���������� ������������� ��������� ��� ���������� �������, ������� ��� ������� ������� ����� Free. ��� ���������� ������� ��� ���������� ����������� �������� ����������� ����� <a href="#THArrayPointer">THArrayPointer</a>. <br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:TObject; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:TObject):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <a name="ObjectsClearMem"></a> <td><font face="Courier New" size=2> procedure<strong> ClearMem</strong>;</td> <td><font face="verdana,arial" size=2> ������ ������, ��� ���� ���������� ��� ������ � �������� ��� ���������� �������! ��� �� ������� ������ ������ �� ������� ������� <a href="#SafeClearMem">SafeClearMem</a>. </td> </tr> <tr> <td><font face="Courier New" size=2> procedure <strong>Delete</strong>(num:integer); </td> <td><font face="verdana,arial" size=2> ������� ������� � ������� <strong>num</strong>, �������� ��� ���� ��� ������! ��� �������� ������ ������ �� ������ ��. <a href="#SafeDelete">SafeDelete</a>.<br> ��� ��������� �������� ���������� � ������. ������ ��� ���� �� �������������. ��. ����� <a href="#Hold">Hold</a> ��� ������������ ��������� ������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:TObject):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#ObjectsIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="ObjectsIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:TObject;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> <tr> <a name="SafeClearMem"></a> <td><font face="Courier New" size=2> procedure<strong> SafeClearMem</strong>;</td> <td><font face="verdana,arial" size=2> ������ ������, ��� ���� ���������� ��� ������. ������� ������ ������ �� �������, ���� ������� �� �����������.</td> </tr> <tr> <a name="SafeDelete"></a> <td><font face="Courier New" size=2> procedure <strong>SafeDelete</strong>(num:integer); </td> <td><font face="verdana,arial" size=2> ������� ������� � ������� <strong>num</strong>. ��� ���� ��� ������ �� ����������� � ��������� ������ ������ �� ����.<br> ��� ��������� �������� ���������� � ������. ������ ��� ���� �� �������������. ��. ����� <a href="#Hold">Hold</a> ��� ������������ ��������� ������. </td> </tr> </table> <br> <a Name="THArrayCurrency"></a> <h3>THArrayCurrency</h3> ������ ��� �������� ��������� ����� � ������� <strong>Currency</strong>.<br> <strong>Currency</strong> ��� ����������� ��������� ��� ������ � Delphi ��� ������������� �������� ����������.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:Currency; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:Currency):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:Currency):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#CurrencyIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="CurrencyIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:Currency;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <a Name="THArrayDouble"></a> <h3>THArrayDouble</h3> ������ ��� �������� ��������� ����� � ������� <strong>Double</strong>.<br> <br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:Double; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:Double):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:Double):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#DoubleIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="DoubleIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:Double;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <a Name="THArrayExtended"></a> <h3>THArrayExtended</h3> ������ ��� �������� ��������� ����� � ������� <strong>Extended</strong>.<br> ������ <strong>Extended</strong> ������������ ����� 10 ��������� ����� � ��������� ������. ����������� ��� ���������� � ��������� ���������.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:Extended; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:Extended):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:Extended):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#ExtendedIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="ExtendedIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:Extended;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <a Name="THArrayString"> </a> <h3>THArrayString</h3> ������ ��� �������� ����� ����� �����.<br> �� ����� ���� ������������ ����� ������ ���������� �� ������.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:String; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:String):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:string):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#StringIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="StringIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:string;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <a Name="THArrayStringFix"></a> <h3>THArrayStringFix</h3> ������ ��� �������� ����� ������������ �����. ������� ��� �������� ����� ������ ��� ������. <br> ��� �������� ���������� ����� ������ ����������� ����������� ����������� <a href="#CreateSize">CreateSize(Size:integer)</a>.<br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:String; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <a name="CreateSize"></a> <td><font face="Courier New" size=2> constructor <strong>CreateSize</strong>(Size:integer); <td><font face="verdana,arial" size=2> ��� �������� ���������� ����� ������ ������ �������� ������������ ��� ���������� ����������� ����������� <strong>CreateSize</strong> � ������� ���������� ������ ������ � ������ <br>Size. ����� �������� ������������ (<strong>Create</strong> ��� ����������) ������� ��������� ����������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:string):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:string):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#StringFixIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="StringFixIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:string;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br> <a Name="THArrayWideStrings"></a> <h3>THArrayWideStrings</h3> ������ ��� �������� ����� � ������� <strong>Unicode</strong> (<strong>WideString</strong> � Delphi).<br> <br><br> <table cellspacing="0" cellpadding="5" border="1"> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> �������� </td> </tr> <tr> <td> <font face="Courier New" size=2> property <strong>Value</strong>[Index:integer]:WideString; default;</td> <td><font face="verdana,arial" size=2> ��������� ���� ������������� �������� �� �������. ���� ������ �� ���������� �� ������ ���������� <strong>ERangeError</strong>.</td> </tr> <tr bgcolor="#009999"> <td colspan="2" align="center" valign="middle"><font face="verdana,arial" size=4> ������ </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>AddValue</strong>(Value:WideString):integer;</td> <td><font face="verdana,arial" size=2> ��������� �������� <strong>Value</strong> � ����� �������. ���������� ������ ����������� ��������. </td> </tr> <tr> <td><font face="Courier New" size=2> function <strong>IndexOf</strong>(Value:WideString):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ ������� ����������� �������� <strong>Value</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ��� ������ ���������� �������� ����� ������������ ������� <a href="#WideStringIndexOfFrom">IndexOfFrom</a> </td> </tr> <tr> <a name="WideStringIndexOfFrom"></a> <td><font face="Courier New" size=2> function <strong>IndexOfFrom</strong>(Value:WideString;Start:integer):integer; </td> <td><font face="verdana,arial" size=2> ���������� ������ �������� <strong>Value</strong>, ����� �������� � �������� � �������� <strong>Start</strong>. ���� ������ �� ����� �� ���������� <strong>-1</strong>. ������������ ��� ���������������� ������. </td> </tr> </table> <br><br><br><br><br><br> <br><br><br> </BODY> </HTML>