Seçilen kayıtları silme

[dogan]

Selam;

Masaüstü için fremonkey ile bir listeleme yapıyorum; fakat firemonkeyde multiselect (çoklu kayıt seçme) özelliği yok sanırım toplu kayıt silme işlemini nasıl yaptıra bilirim...

Kod: Tümünü seç

procedure TForm2.BtnSilClick(Sender: TObject);
begin
  for I := Pred(ListView1.ItemCount) downto 0 do
  begin
    Silinen := ListView1.Items[I].Tag.ToString;
    ListView1.BeginUpdate;
    try
      ListView1.Items.Delete(I);
    finally
      ListView1.EndUpdate;
    end;
  end;
end;

[ertank]

Merhaba,

ListView ile CheckBox gösterebilirsiniz.

1- ListView1.ItemAppearance.ItemEditAppearance Değerini ListItemShowCheck şeklinde ayarlayın.
2- ListView1.EditMode := True; şeklinde checkbox'lar gözükür. Bu modda iken sil butonunu gösterip tıklandığında aşağıdaki gibi hangilerinin silinmesi gerektiğini tespit edebilirsiniz.

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  for i := Pred(ListView1.Items.Count) downto 0 do
  begin
    if ListView1.Items[i].Checked then
      ListView1.Items.Delete(i);
  end;
end;

Delphi 10.1 ile hazırlanmış basit Android projesi ektedir.

[SimaWB]

FireMonkey TListView'da elbette çoklu seçim var. Burada güzel bir anlarım mevcut.