delphi
procedure TFBusquedaRec.Button1Click(Sender: TObject); var i: Integer; Letra: String; begin for i := 0 to clDiscos.Items.Count - 1 do begin if clDiscos.Checked[i] = True then Letra := LeftStr(clDiscos.Items.Text,1); ShowMessage(Letra); end; end;
Pero no me cuenta solamente los que están seleccionados sino todos , ¿qué estoy haciendo mal?.
Fleon xD