Delete item TListView e SQLIte

Nesse fórum você poderá discutir com todos sobre o curso de criação de aplicativos móveis ministrados pela TDevRocks.

Moderador: hermeson

CezarVil
Mensagens: 1
Registrado em: 31/Jul/2017, 08:25

Delete item TListView e SQLIte

Mensagempor CezarVil » 11/Ago/2017, 10:04

Olá,

Não estou conseguindo excluir o item tanto TListView como no banco SQLite.
Ele até deleta no SQLIte mas dá erro de "argument of range", já tentei diversas formas diferentes e sempre fica meio bugado.
qual a forma correta de fazer isso?

procedure TfrmCadProdutos.lsViewComandasDeletingItem(Sender: TObject; AIndex: Integer; var ACanDelete: Boolean);
var
Input: Integer;
Mensagem: String;
begin
ACanDelete := False;
try
Mensagem := 'Ao confirmar você irá excluir o item! Continuar?';
Input := myMessageDialog(Mensagem, TMsgDlgType.mtConfirmation, mbOKCancel, TMsgDlgBtn.mbCancel);

if Input = 1 then // 1 = Ok
quyComandas.Delete;
except
end;
end;

Voltar para “[Curso] - Criando aplicativos móveis com Delphi”

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante