De CheckListBox tabla

[Camilo]

Hola amigos del Foro un saludo para todos,
Quisiera preguntar por el procedimiento especifico para lo siguiente: Tengo un ChecklistBox1 y alli se aloja una lista de 1000 prsonas; quisiera saber como hago para que los chequeados sean copiados en una tabla y los no chequeados sean copiados en un ListBox1.
De antemano gracias or su colaboracion y quedo atento.

[jhonny]

Escribiré una posible solución, asumiendo que dicha tabla sea de tipo TTable, pues no especificaste el tipo de tabla que usas:

Código Delphi [-]
 
var
  i :Integer;
begin
  for i := 0 to CheckListBox1.Items.Count -1 do
  begin
    if not CheckListBox1.Checked[i] then
      ListBox1.Items.Add(CheckListBox1.Items[i])
    else
    begin
      Tabla1.Append;
      Tabla1.FieldByName('NombreDelCampo').AsString := CheckListBox1.Items[i];
      Tabla1.Post;
    end;
  end;
end;

//Lo edite para que no quedara el ; y para agregar el Items.

[Camilo]

Empezado por jhonny

Escribiré una posible solución, asumiendo que dicha tabla sea de tipo TTable, pues no especificaste el tipo de tabla que usas:

Código Delphi [-]
 
var
  i :Integer;
begin
  for i := 0 to CheckListBox1.items.Count -1 do
  begin
    if not CheckListBox1.Checked[i] then
      ListBox1.Items.Add(CheckListBox1.Items[i])
    else
    begin
      Tabla1.Append;
      Tabla1.FieldByName('NombreDelCampo').AsString := CheckListBox1.Items[i];
      Tabla1.Post;
    end;
  end;
end;

Jhony estoy muy apenado contigo por que me toco ausentarme un par de horas del compu.; mientras tu gentileza se manifestaba en la solucion de mi duda.
te cuento que hice el procedimiento y salvo introducir "items" en la parte de
for i := 0 to CheckListBox1.items.Count -1 do
y quitar el ";" anterior al else, todo bien.

Te agradezco nuevamente y disculpa la tardanza en la confirmacion.

[jhonny]

Bueno, no había notado lo del punto y coma, pues hice un begin..end y luego lo quite, en ese momento se me olvido quitarlo, en todo caso que bueno que todo haya salido bien