Merhaba
Bir web sayfasından tabloda bulunan verileri parse yaparak listview'e alıyorum.
Aldığım bu verileri database kaydetmek istediğimde sadece 1 kayıt ekleyebiliyorum. Yardımcı olursanız sevinirim.
var
i: integer;
begin
with ListView9 do
begin
for i := Items.Count - 1 downto 0 do
begin
Table2.Edit;
Table2.FieldByName('HNo').Value := Table1.FieldByName('ID').Value;
Table2.FieldByName('FaaliyetNo').Asstring := ListView9.Items.Item[i].SubItems[0];
Table2.FieldByName('FaaliyetAdi').Asstring := ListView9.Items.Item[i].SubItems[1];
Table2.FieldByName('BaslangicTarihi').Asstring := ListView9.Items.Item[i].SubItems[2];
Table2.FieldByName('BitisTarihi').Asstring := ListView9.Items.Item[i].SubItems[3];
Table2.post;
end;
end;
end;
end;