Extraccion de datos de un LISTVIEW
 

Buenos dias alguien me podria decir como extraer los datos de un listview para guardarlos en una tabla mi y listview esta en Style = VSREPORT quiero extraer los items y sub items respectivamente para almacenarlos en una tabla
gracias

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 ;)

EXtraccion datos listview
 

gracias funciono bien :)