listview 1 e 2

Delphi

11/03/2011

oi alguem sabe me dizer como faço para faço para deletar atravez d um button um item da listview1 e apagar o item da listview 2 "so a linha q stiver com o mesmo caption do listview1"?
Alessandra

Alessandra

Curtidas 0

Respostas

Rodrigo Mattos

Rodrigo Mattos

11/03/2011

Tenta esse código:



procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I: Integer;
  IIL1: Integer;
begin
  for I := 0 to ListView2.Items.Count - 1 do
  begin
    IIL1 := ListView1.ItemIndex;
    if ListView2.Items.Item[I].Caption = ListView1.Items.Item[IIL1].Caption then
    begin
      ListView1.Items.Delete(IIL1);
      ListView2.Items.Delete(I);
      Break;
    end;
  end;
end;



Espero ter Ajudado.

http://mundodoprogramador.wordpress.com
GOSTEI 0
Alessandra

Alessandra

11/03/2011

funciono sim, mais se eu tiver adiconado itens so na listview1 dpois quizer deletar ao selecionar sem ter adicionado nada ainda na 2 cm faço ????
GOSTEI 0
Alessandra

Alessandra

11/03/2011

mais se eu tiver adiconado itens so na listview1 dpois quizer deletar ao selecionar sem ter adicionado nada ainda na 2 cm faço ???? 

(deletar atravez d um button um item da listview1 e apagar o item da listview 2 "so a linha q stiver com o mesmo caption do listview1"?)
GOSTEI 0
POSTAR