Item(Index: Integer): Boolean;
Index. Индекс элемента, значение которого необходимо определить.
Свойство Item определяет значение элемента с указанными индексом.
Sub UserProc;
Var
BitArr: IBitArray;
i: Integer;
Begin
BitArr := New BitArray.Create;
For i := 0 To Math.RandBetweenI(50, 100) Do
If Math.Round(Math.Rand, 0) = 1 Then
BitArr.Item(i) := True;
Else
BitArr.Item(i) := False;
End If;
End For;
End Sub UserProc;
После выполнения примера будет сгенерирован динамический битовый массив.
См. также: