Cita:
Empezado por adfa
Luego para recuperarlo: (usando tu mismo código)
Código Delphi [-]
// con este código consigo cuales tienen cotejo;
var i, id_nom:integer;
begin
with CheckListBox1 do
begin
for i:=0 to Items.Count-1 do
begin
if Checked[i]then
begin
id_nom:= integer(Items.objects[i]);
end;
end;
end;
end;
|
El problema que veo yo en ese código es que si hay varios seleccionados es que se sobreescribe el valor de la variable id_nom en cada paso del bucle en el cual esté checado el item en cuestion:
Item1 Valor 1 checked
Item2 Valor 2 checked
Item3 Valor 3 checked
el id_nom quedaría como 3, pero el 1 y el 2?? tambien están checked