delphi
procedure TFABMUsers.clPermisosClickCheck(Sender: TObject); begin if clPermisos.Checked[clPermisos.ItemIndex] then begin if AnsiContainsText(Permisos.Text,clPermisos.Items.Text) then begin Permisos.Delete(Permisos.IndexOf(clPermisos.Items.Strings[clPermisos.ItemIndex])); Permisos.Add(clPermisos.Items.Strings[clPermisos.ItemIndex]); end else Permisos.Add(clPermisos.Items.Strings[clPermisos.ItemIndex]); end else if AnsiContainsText(Permisos.Text,clPermisos.Items.Text) then Permisos.Delete(Permisos.IndexOf(clPermisos.Items.Strings[clPermisos.ItemIndex])); end;
El objetivo de eso es que al acotejar uno de los Items del CheckListBox se agregue al StringList, hasta aquí todo bien, perooo..., al quitarle el cotejo no logro eliminarlo del StringList, ¿En qué puedo estar fallando?.
Saludos.