Quintiq file version 2.0
|
#parent: #root
|
Method GroupVectorRemove (LibOpt_ScopeThin scope) as BinaryValue
|
{
|
TextBody:
|
[*
|
result := this.GroupVector();
|
if( result.Size() > 0 )
|
{
|
vector := NumberVector::Construct( result );
|
|
if( vector.Size() > scope.ID() )
|
{
|
vector.Set( scope.ID(), 0 );
|
|
size := vector.Size();
|
for( {}; size > 0 and vector.Get( size - 1 ) = 0; size-- )
|
{ }
|
|
if( size <> vector.Size() )
|
{
|
vector.Resize( size );
|
}
|
|
result := vector.AsBinaryValue();
|
}
|
}
|
|
return result;
|
*]
|
InterfaceProperties { Accessibility: 'Module' }
|
}
|
