Delphi-Quellcode:
for I := 0 to Listview1.Items.Count - 1 do
begin
Tabelle.Append; // Neuen Datensatz "am Ende" der Tabelle erstellen
Tabelle.FieldByName('name').asstring := Listview1.Items[i].Caption;
Tabelle.Post; // Datensatz speichern
end;
//EDIT: Mist, roter Kasten
