🚀 go-pugleaf

"Mario Sernicola" <mariosernicola.nospam@libero.nospam.it> wrote in message
news:404789da$1@newsgroups.borland.com...
> My code doesn't work at all!!!

Try the following code instead (untested):

    if( ListView1->SelCount > 0 )
    {
        if( Application->MessageBox(SelectedFilesWillBeDeleted.c_str(),
PROGRAM_NAME, MB_ICONQUESTION | MB_OKCANCEL) == ID_OK )
        {
            int length = 0;

            TListItem *pItem = lvGridOthers->Selected;
            while( pItem )
            {
                length += (pItem->SubItems->Strings[1].Length() + 1);
                pItem = lvGridOthers->GetNextItem(pItem, sdAll,
TItemStates() << isSelected);
            }

            if( length > 0 )
            {
                AnsiString files;
                files.SetLength(length+1);
                char *ptr = files.c_str();

                pItem = lvGridOthers->Selected;
                while( pItem )
                {
                    AnsiString tmp = pItem->SubItems->Strings[1];
                    StrPCopy(ptr, tmp);
                    ptr += tmp.Length();
                    *ptr++ = '\0';
                    pItem = lvGridOthers->GetNextItem(pItem, sdAll,
TItemStates() << isSelected);
                }

                *ptr = '\0';

                SHFILEOPSTRUCT FileOpStr = {0};
                FileOpStr.hwnd = Application->Handle;
                FileOpStr.fFlags = FOF_ALLOWUNDO;
                FileOpStr.wFunc = FO_DELETE;
                FileOpStr.pFrom = files.c_str();
                SHFileOperation(&FileOpStr);
            }
        }
    }


Gambit