Extraccion de datos de un LISTVIEW

[ixMike]

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