Pasar datos de varios listbox a una tabla

[ecfisa]

Empezado por Pedron

...
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