Listview, do not repeat records

Question

I have 2 listview and a timer. This timer captures the records that exist with a certain comment and puts in the other listview. It turns out that he is repeating the records, I would like him to add only once the record, and checasse, if the record already exists in the other LISTVIEW, he ignores it. What am I doing wrong? Follow my code:

 for I := 0 to Form1.LV1.Items.Count-1 do
      begin
      if Form1.LV1.Items[I].SubItems[5] = 'OK' then // confere se existe o comentário
      begin
      Form1.LV2.Visible := True;
      L := Form1.LV2.Items.Add;
      for J := 0 to Form1.LV2.Items.Count-1 do
      if Form1.LV2.Items[J].SubItems[5] <> Form1.LV1.Items[I].SubItems[5] then  // aqui tentei fazer não repetir (não deu certo).

      Form1.LV2.Items.item[Form1.LV2.Items.count-1] := Form1.LV1.items.item[i];
      end;

Any idea ?

Answer 1

I didn’t know which one you wanted, so I did both jobs. With respect to logic, with the empty listview you always add, after all, no items, no repetitions and from the second apply the function you prefer

function VerificaLVSubItem(Lista: TListView;Subitem:integer; Verifica:String):string;
var i : integer;
begin
  Result := '1';
  for i := 0 to lista.Items.Count - 1 do
  begin
    if lista.Items[i].SubItems[subitem] = Verifica then
      Result := '';
  end;
end;

function VerificaLVItem(Lista: TListView;Verifica:String):string;
var i : integer;
begin
  Result := '1';
  for i := 0 to lista.Items.Count - 1 do
  begin
    if lista.Items[i].Caption = Verifica then
      Result := '';
  end;
end;

And on the call you put:

  if lv2.Items.Count > 0 then
  begin
    if VerificaLVSubItem(LV2,1,'1') = '' then
      Showmessage('Tem')
    else
      Showmessage('Não Tem');
    if VerificaLVItem(LV2,'1') = '' then
      Showmessage('Tem')
    else
      Showmessage('Não Tem');
  end
  else
    Showmessage('Adiciona');