Deletando itens do Banco de Dados com TListView
Boa tarde pessoal, preciso de uma ajuda, para o que parece ser, incompetência minha ou bug da Embarcadero.
Eu possou um projeto simples em Delphi FMX para uso em Mobile. Onde eu tenho um ListView, ligado à um Dataset qualquer por Livebind. No caso, a ligação está sendo feita, ligando o Synch do Listview, ao * do meu Dataset, e ligando o campo de "nome" ao Item.Text do ListView. Sendo assim, tenho todos os dados em tela.
A opção CanSwipeDelete do ListView está ativa, e ao arrastar para o lado um dos itens do meu ListView, aparece um botão para apagar a linha. Na implementação do método "OnDeleteItem" do ListView, eu implementei um código simples.
Até aí tudo bem, mas se eu tento excluir o último item da minha lista, o Delphi me retorna um erro: "out index of bounds". Mas exclui meu registro, e a linha.
Alguém já passou por isso e sabe como não dar esse erro?
Desde já agradeço a ajuda.
Eu possou um projeto simples em Delphi FMX para uso em Mobile. Onde eu tenho um ListView, ligado à um Dataset qualquer por Livebind. No caso, a ligação está sendo feita, ligando o Synch do Listview, ao * do meu Dataset, e ligando o campo de "nome" ao Item.Text do ListView. Sendo assim, tenho todos os dados em tela.
A opção CanSwipeDelete do ListView está ativa, e ao arrastar para o lado um dos itens do meu ListView, aparece um botão para apagar a linha. Na implementação do método "OnDeleteItem" do ListView, eu implementei um código simples.
procedure TForm1.ListView1DeleteItem(Sender: TObject; AIndex: Integer); begin FDMemTable1.Delete; end;
Até aí tudo bem, mas se eu tento excluir o último item da minha lista, o Delphi me retorna um erro: "out index of bounds". Mas exclui meu registro, e a linha.
Alguém já passou por isso e sabe como não dar esse erro?
Desde já agradeço a ajuda.
Adhemar Alves
Curtidas 0