| Процедура
SetLimit (Var Array of AnyType, Word) |
Top Previous Next |
| Назначение
|
| Процедура
устанавливает размер распределенной памяти под массив. Если
Mass - массив в памяти, не связанный с таблицей, то,
если текущее число элементов массива превышает число элементов,
определяемых параметром Limit, то все непопадающие в
диапазон элементы уничтожаются. |
| Описание
|
| prosedure
SetLimit (Var Mass : Array of AnyType; limit : Word);
|
| Параметры
|
| Mass
: Array of AnyType - имя массива. |
| Limit
: Word - число элементов массива, под которые выделена
память. |
| Пример
|
| Var ar
:Array[1..5] of Byte; |
| begin
|
| ar[5] := 10;
|
| Message(Count(ar));
//Будет выведено 5 |
| Message(ar[5]);
//Будет выведено 10 |
| SetLimit(ar,1);
|
| Message(Count(ar));
//Будет выведено 1 |
| Message(ar[5]);
//Будет выведено 0 |
| end;
|