3 respuestas en este tema

[enecumene]

Pues eso, tengo un StringList Llamado Permisos y un CheckListBox llamado clPermisos, en su evento OnClickCheck tengo el siguiente code>

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.

[enecumene]

Grrrr !!!...Me contesto yo mismo   

delphi

procedure TFABMUsers.clPermisosClickCheck(Sender: TObject);
begin
  if clPermisos.Checked[clPermisos.ItemIndex] then begin
    if AnsiContainsText(Permisos.Text,clPermisos.Items.Strings[clPermisos.ItemIndex]) 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.Strings[clPermisos.ItemIndex]) then
    Permisos.Delete(Permisos.IndexOf(clPermisos.Items.Strings[clPermisos.ItemIndex]));
end;

Saludos.

[egostar]

Ah vaya pequeño detalle

Saludos

[enecumene]

Ah vaya pequeño detalle

Saludos

Así es mi estimado, al final de manera oficial ya lo estoy usando con Objetos:

delphi

procedure TFABMUsers.clPermisosClickCheck(Sender: TObject);
begin
  if clPermisos.Checked[clPermisos.ItemIndex] then begin
    if AnsiContainsText(Permisos.Text,TString(clPermisos.Items.Objects[clPermisos.ItemIndex]).Str) then begin
      Permisos.Delete(Permisos.IndexOf(TString(clPermisos.Items.Objects[clPermisos.ItemIndex]).Str));
      Permisos.Add(TString(clPermisos.Items.Objects[clPermisos.ItemIndex]).Str);
    end else Permisos.Add(TString(clPermisos.Items.Objects[clPermisos.ItemIndex]).Str);
  end else if AnsiContainsText(Permisos.Text,TString(clPermisos.Items.Objects[clPermisos.ItemIndex]).Str) then
    Permisos.Delete(Permisos.IndexOf(TString(clPermisos.Items.Objects[clPermisos.ItemIndex]).Str));
end;

La Clase TString es ésta (Coincidencialmente se llama igual al de Zarko Gajic en Delphi.about.com ):

delphi

TString = class(TObject)
    private
     FStr: String;
   public
     constructor Create(const AStr: String) ;
     property Str: String read FStr write FStr;
  end;
 
constructor TString.Create(const AStr: String) ;
begin
   inherited Create;
   FStr := AStr;
end;

Saludos.