listview1 , 2

17/03/2011

Leonardo Xavier

ola:

tente o seguinte:

var 
i:integer;

Begin

 for i:=0 to datasource1.dataset.RecordCount do begin
        If 
ListView_Dependente.Items.Item[I].Caption =   
                ListView_Funcionario.Items.Item[I].Caption 
Then begin
           ListView_Funcionario.Items.Item[I].visible:=false;
     end; 
end;

Responder

Gostei + 0

17/03/2011

Lu

eu eu to fazendo exatamente assim so q sem o datasource, � to usando banco de dados nem nada disso so q ele deleta so a primeira e daxa as outras tipo se tiver 2 captions iguais a listview1 ele deleta so o primeiro o 2 que tem o mesmo caption da lisv1 q deveria deletar junto por ser igual � deleta, fica

Responder

Gostei + 0

18/03/2011

Lu

cm fa�o ???????????????

Responder

Gostei + 0

18/03/2011

Andr� Silveira

Coloca o c�digo completo de como est� fazendo, se estiver deletando, note que ao deletar um registro ou item ele muda o indice.

Se eu estiver no indice 2 de uma list que tenha 5 itens, ao delet�-lo, o item de indice 3 passa a ser o 2, o 4 passa para 3 e o 5 passa a ser 4.

Pode ser por isso que est� pulando um item, pois o indice desse item pode mudar para um que o la�o j� passou e n�o passar� novamente.

Posta o c�digo completo de como est� fazendo que facilitar� a solu��o da sua d�vida.

Responder

Gostei + 0

18/03/2011

Lu

If Listview1.ItemIndex <> -1 Then
   Begin
For I := 0 to ListView2.Items.Count - 1 Do
    Begin
   If ListView2.Items.Item[I].Caption = ListView1.Items.Item[ListView1.ItemIndex].Caption Then
      Begin
    ListView2.Items.Delete(I);
   ListView1.Items.Delete(I)
    Break;
      End

Responder

Gostei + 0

18/03/2011

Lu

se eu apagar a listview1 e tiverer 2 captions iguais na dois ele so apaga 1 e dxa o outro se puder me ajudar eu agrade�o muito

Responder

Gostei + 0

18/03/2011

Andr� Silveira

Deve ser exatamente o que falei no meu post anterior, tenta com essa forma:

    Contador := 0;

   If Listview1.ItemIndex <> -1 Then
   Begin
        While Contador <= ListView2.Items.Count - 1 do
        Begin
       If ListView2.Items.Item[I].Caption = ListView1.Items.Item[ListView1.ItemIndex].Caption Then
           Begin
           ListView2.Items.Delete(I);
           ListView1.Items.Delete(I);
         End
           Else
              Inc(Contador);
        End
    End

Responder

Gostei + 0

18/03/2011

Lu

infelizmente � funciono desse jeito tbm

Responder

Gostei + 0

18/03/2011

Lu

� deu certo tbm infelizment

Responder

Gostei + 0

18/03/2011

Lu

Deve ser exatamente o que falei no meu post anterior, tenta com essa forma:

    Contador := 0;

   If Listview1.ItemIndex <> -1 Then
   Begin
        While Contador <= ListView2.Items.Count - 1 do
        Begin
       If ListView2.Items.Item[I].Caption = ListView1.Items.Item[ListView1.ItemIndex].Caption Then
           Begin
           ListView2.Items.Delete(I);
           ListView1.Items.Delete(I);
         End
           Else
              Inc(Contador);
        End
    End

assim � deu certo ainda ta com mesmo erro. exemplo se tiver 2 captions iguiais ao listview1 ele so apaga o primeiro ao invez d apagar todos iguais???????

Responder

Gostei + 0

18/03/2011

Andr� Silveira

procedure TForm1.btn1Click(Sender: TObject);
var
    contador  : Integer;
    Achou : Boolean;
begin
    Achou := False;
   If lv1.ItemIndex <> -1 Then
   Contador := 0;

   If lv1.ItemIndex <> -1 Then
   Begin
        While Contador <= lv2.Items.Count - 1 do
        Begin
           If lv2.Items.Item[Contador].Caption = lv1.Items.Item[lv1.ItemIndex].Caption Then
           Begin
               lv2.Items.Delete(Contador);
               Achou := True;
           End
           Else
              Inc(Contador);
        End
    End;


   if Achou then
   begin
     lv1.DeleteSelected;
   end;

   lv1.Refresh;
   lv2.Refresh;
end;

Fiz esse exemplo e aqui funcionou normal.

Responder

Gostei + 0

F�rum listview1 , 2 #397404