🚀 go-pugleaf

<Tog> wrote in message news:4137b6d9$1@newsgroups.borland.com...

>                 for (int j=0; j < AUsers->Count; j++)
>                         {
>                         if (AChannel->Names->Objects[j] == (TObject*) 1)

You are looping through AUsers but then are accessing AChannel->Names
instead.  Try this instead:

    TTeListBox *myListBox = FindListBox(AChannel->Name);
    if( myListBox )
    {
        myListBox->Clear();
        for(int j = 0; j < AChannel->Names->Count; ++j)
        {
            switch( (int) AChannel->Names->Objects[j] )
            {
                case 1:
                    myListBox->Items->Add("@" +
AChannel->Names->Strings[j]);
                    break;
                case 2:
                    myListBox->Items->Add("+" +
AChannel->Names->Strings[j]);
                    break;
                case 3:
                    myListBox->Items->Add("@" + AChannel->Names->Strings[j]
+ "+");
                    break;
                default:
                    myListBox->Items->Add(AChannel->Names->Strings[j]);
                    break;
            }
        }


Gambit