Ir al contenido


Foto

Problemas con conteo en un CheckListBox


  • Por favor identifícate para responder
5 respuestas en este tema

#1 Fleon

Fleon

    Advanced Member

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

Escrito 18 julio 2009 - 12:02

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
  • 4.483 mensajes
  • LocationVenezuela

Escrito 18 julio 2009 - 12:04



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 mensajes
  • LocationRepública Dominicana

Escrito 18 julio 2009 - 12:11

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

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 18 julio 2009 - 12:22



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 mensajes
  • LocationBolivia

Escrito 24 julio 2009 - 10:05

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
  • 2.137 mensajes

Escrito 24 julio 2009 - 10:45

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




IP.Board spam blocked by CleanTalk.