Jump to content


Photo

Problemas con conteo en un CheckListBox

Started by Fleon , Jul 18 2009 12:02 PM

  • Please log in to reply
5 replies to this topic

#1 Fleon

Fleon

    Advanced Member

  • Miembros
  • PipPipPip
  • 172 posts
  • LocationRepública Dominicana

Posted 18 July 2009 - 12:02 PM

Hola amigos aquí­ regreso con otro problemita, tengo un CheckListBox y estoy teniendo problemas en contar solamente los items seleccionados, tengo lo siguiente:



delphi
  1. procedure TFBusquedaRec.Button1Click(Sender: TObject);
  2. var i: Integer;
  3.     Letra: String;
  4. begin
  5.  for i := 0 to clDiscos.Items.Count - 1 do begin
  6.   if clDiscos.Checked[i] = True then
  7.    Letra := LeftStr(clDiscos.Items.Text,1);
  8.    ShowMessage(Letra);
  9.   end;
  10. end;



Pero no me cuenta solamente los que están seleccionados sino todos :(, ¿qué estoy haciendo mal?.

Fleon xD
  • 0

#2 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 18 July 2009 - 12:04 PM



delphi
  1. procedure TFBusquedaRec.Button1Click(Sender: TObject);
  2. var i: Integer;
  3.     Letra: String;
  4. begin
  5.  for i := 0 to clDiscos.Items.Count - 1 do begin
  6.   if clDiscos.Checked[i] = True then
  7.    begin
  8.    Letra := LeftStr(clDiscos.Items.Text,1);
  9.    ShowMessage(Letra);
  10.    end;
  11.   end;
  12. end;


  • 0

#3 Fleon

Fleon

    Advanced Member

  • Miembros
  • PipPipPip
  • 172 posts
  • LocationRepública Dominicana

Posted 18 July 2009 - 12:11 PM

Muchas gracias eduarcol, pero sigue contando todas :(.
  • 0

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 18 July 2009 - 12:22 PM



delphi
  1. procedure TFBusquedaRec.Button1Click(Sender: TObject);
  2. var i: Integer;
  3.     Letra: String;
  4. begin
  5.  for i := 0 to clDiscos.Items.Count - 1 do begin
  6.   if clDiscos.Checked[i] = True then
  7.    begin
  8.    Letra := LeftStr(clDiscos.Items.String[i],1);
  9.    ShowMessage(Letra);
  10.    end;
  11.   end;
  12. end;



Lo que pasa es que text toma toda el valor de los items, tienes que especificar que items estas evaluando
  • 0

#5 Caro

Caro

    Member

  • Miembros
  • PipPip
  • 29 posts
  • LocationBolivia

Posted 24 July 2009 - 10:05 AM

Hola Fleon, también puedes acceder al item de esta forma:



delphi
  1.   Letra := LeftStr(clDiscos.Items[i],1);



Saluditos
  • 0

#6 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2137 posts

Posted 24 July 2009 - 10:45 AM

De acuerdo con Caro


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. i:integer;
  4. Letra:string;
  5. begin
  6.   for I := 0 to cldiscos.Items.Count - 1 do
  7.   if cldiscos.Checked[i] = true then
  8.   begin
  9.   Letra:= LeftStr(cldiscos.Items[i],1);
  10.   ShowMessage(Letra);
  11.   end;
  12. end;


  • 0
Back to [OOP]


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → Delphi
  4. → [OOP]
  5. Privacy Policy
IP.Board spam blocked by CleanTalk.