| Процедура
SetLeftBound (Var Array of AnyType, Integer) |
Top Previous Next |
| Назначение
|
| Процедура
устанавливает левую границу массива. |
| Описание
|
| prosedure
SetLeftBound (Var Mass : Array of AnyType; LftBnd : Integer);
|
| Параметры
|
| Mass
: Array of AnyType - имя массива. |
| LftBnd
: Integer - левая граница массива. |
| Пример
|
| Var ar
:Array[1..2] of Byte; |
| begin
|
| ar[1] := 10;
|
| ar[2] := 20;
|
| Message(Count(ar));
//Будет выведено 2 |
| Message(ar[1]+','+ar[2]);//Будет
выведено 10,20 |
| SetLeftBound(ar,0);
|
| Message(Count(ar));
//Будет выведено 2 |
| Message(ar[0]+','+ar[1]);//Будет
выведено 10,20 |
| Message(ar[1]+','+ar[2]);//Будет
выведено 20,0 |
| end;
|