Fórum ChecklistBox - BD - Excluir #392502
15/12/2010
0
i : Integer; begin for I := listaentrega.Items.Count -1 downto 0 do if listaentrega.Checked[i] then begin listaentrega.Items.Delete(i);
Frost
Curtir tópico
+ 0Posts
15/12/2010
Leonardo Xavier
Gostei + 0
15/12/2010
Frost
Gostei + 0
15/12/2010
Leonardo Xavier
Gostei + 0
15/12/2010
Frost
listaentrega.Items.Clear;
Q_entrega.First;
while not Q_entrega.Eof do
begin
listaentrega.Items.Add(Q_entrega.FieldByName('items_entrega').AsString);
Q_entrega.Next;
Gostei + 0
16/12/2010
Leonardo Xavier
Este grid tem que estar relacionado com o componente Q_entrega.
i : Integer; begin for I := listaentrega.Items.Count -1 downto 0 do if listaentrega.Checked[i] then begin listaentrega.Items.Delete(i); Q_entrega.delete;
Tente assim e veja o que acontece.
Gostei + 0
16/12/2010
Leonardo Xavier
Este grid tem que estar relacionado com o componente Q_entrega.
i : Integer; begin for I := listaentrega.Items.Count -1 downto 0 do if listaentrega.Checked[i] then begin listaentrega.Items.Delete(i); Q_entrega.dataset.delete;
Tente assim e veja o que acontece.
Gostei + 0
16/12/2010
Frost
Leonardo
Funcionou certinho.
Obrigado pela força.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)