K>>BOOL TCollect::Insert(int i, const void *item)
K>>{
K>>    if( i == -1 ) i = Count();
K>>    if( count == limit )
K>>    {
K>>        int newLimit = min(limit+delta, MaxCount());
K>>        if( newLimit == count ) return error(IDS_SE_MANYITEMS, g_hInstanceNCall), FALSE;
K>>        char *ni;
K>>        if( ISNULL(ni=new char[newLimit*size_it]) ) return FALSE;
K>>        if( count != 0 ) memcpy(ni, items, count*size_it);
K>>        delete items; items = ni; limit = newLimit;
K>>    }
K>>    if( i < count )    memmove(items+(i+1)*size_it, items+i*size_it, (count-i)*size_it);
K>>    count++;
K>>    if( item ) memcpy(items+i*size_it, item, size_it);
K>>    else memset(items+i*size_it, 0, size_it);
K>>    return TRUE;
K>>}

K>>