Código Delphi
[-]
procedure TForm1.ObtieneDatos;
var
n: integer;
begin
for n:=0 to ListView1.Items.Count-1 do
begin
Tabla.Insert;
Tabla.Edit;
TablaNombre.Value:=ListView1.Items[n].Caption;
TablaApellido1.Value:=ListView1.Items[n].Subitems[0];
TablaApellido2.Value:=ListView1.Items[n].Subitems[1];
TablaMote.Value:=ListView1.Items[n].Subitems[2];
TablaDireccion.Value:=ListView1.Items[n].Subitems[3];
...
Tabla.Post;
end;
end;
Espero que te sea de ayuda. Si hay algún error que me corrija alguien (que hace tiempo que no manejo bases de datos)
Saludos