Listview de seçmiş olduğum kayıtların sadece excele aktarılmasını istiyorum, ancak excel ve delphi tarafında hata alıyorum;
Excel: her satırda "modeller.xlsx" var yineme kaydetmek istiyormusunuz diyor.
Delphi: Erişim hatası olarak hata veriyor. Kullandığım kodlar aşağıdaki gibi...
Kod: Tümünü seç
with ListView do
begin
for i := 0 to Items.Count - 1 do
begin
if Items[i].Checked = True then
begin
Sheet.Cells[Row, 1] := Items[I].Caption;
Sheet.Cells[Row, 2] := Items.Item[i].SubItems[0];
Sheet.Cells[Row, 3] := Items.Item[i].SubItems[1];
Sheet.Cells[Row, 4] := Items.Item[i].SubItems[2];
Sheet.Cells[Row, 5] := Items.Item[i].SubItems[3];
inc(Row);
end;