Pasar datos de varios listbox a una tabla
 

Quisiera saber como pasar los datos de varios listbox (todos juntos a 1 sola tabla) y pues que se muestren al momento de presionar un boton o algo similar. he visto que hay muchisimas tablas que se pueden usar y pues no se cual es la adecuada para solo mostrar eso. de ante mano muchas gracias :D

¿Y qué tienes hecho?, ¿dónde tienes el problema?
Tirón de orejas: chico, así no aprendes, te están haciendo tu trabajo entre unos y otros, haciendo preguntas según vas necesitando para hacer tu programa.
Lo digo por tu bien, esfuérzate un poco.

Si disculpame me esforzare un poco en lo que entienda, aqui tengo los listbox que quiero concatenar, ya mande todos los datos de los listbox al listbox9 y ese listbox9 quiero mandarlo a una tabla

Código Delphi [-]
  ListBox9.Items.Clear;//first clear the contents of the memo5
   ListBox9.Items.AddStrings(ListBox1.Items);
   ListBox9.Items.AddStrings(ListBox2.Items);
   ListBox9.Items.AddStrings(ListBox3.Items);
   ListBox9.Items.AddStrings(ListBox4.Items);
   ListBox9.Items.AddStrings(ListBox5.Items);
   ListBox9.Items.AddStrings(ListBox6.Items);
   ListBox9.Items.AddStrings(ListBox7.Items);
   ListBox9.Items.Clear;//
      SL.Clear;

pero ya en esta parte no se que mas hacer para que me mande el listbox9 a la tabla y lo muestre, si gustas no me pongas el codigo mejor explicamelo para poder entender mejor muchas gracias por tu consejo y respuesta :)

Hola Pedron.

Supongo que te referis a pasar los items a una tabla de una base de datos. Si estoy acertado, lo primero que tendrías que definir es que b.d. vas a usar y lo segundo con que componentes vas a establecer las relaciones.

En líneas muy generales y teniendo el ListBox una cantidad menor o igual de items que campos tiene la tabla , sería:

Código Delphi [-]
procedure ListBoxToTable(aTable: TDataSet; TS: TStrings);
var
  i: Integer;
begin
  aTable.Insert;
  for i:= 0 to TS.Count-1 do
    aTable.Fields[i].AsString:= TS[i];
  aTable.Post;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.btnSaveClick(Sender: TObject);
begin
  ListBoxToTable(ADOTable1, ListBox1.Items);
end;

Saludos :)

Pedron,

:) ^\||/

:confused:

Revisa estos Tutorials de Delphi:
Revisa estos Links:
Revisa estos libros:
Revisa el FTP del Club Delphi:
Espero sea útil :)

Nelson.

Excelente recopilación ^\||/