Length: Integer;
Свойство Length определяет размер битового массива.
Sub Main;
Var
BitArr: IBitArray;
i: Integer;
Begin
BitArr:=New BitArray.Create;
BitArr.Length:=15;
For i:=0 To BitArr.Length-1 Do
If Math.Round(Math.Rand,0)=1 Then
BitArr.Item(i):=True;
Else
BitArr.Item(i):=False;
End If;
End For;
End Sub Main;
После выполнения примера будет сгенерирован битовый массив, содержащий 15 элементов.
См. также: