Вопрос по ListView

[cutter47]

Приветствую всех, столкнулся с такой проблемой, имея ListView такого плана
https://prnt.sc/10ns43k
То есть если строка в столбце Wallet и строка в столбце Hash с теми же значениями встречается далее, то строки с этими же значениями нужно удалить.
не могу понять как можно удалить эти строки, оставив лишь одну из них.
Прошу вашей помощи, уже всю голову сломал.
Может кто-то уже сталкивался с похожей проблемой.
Буду очень признателен за помощь.

[Shouldercannon]

Ответ

procedure TForm14.Button1Click(Sender: TObject);
var
  i, i2: Integer;
  str: String;
begin
  i := 0;
  while i < ListView1.Items.Count do
  begin
    str := ListView1.Items[i].SubItems.Strings[2];
    inc(i);
    for i2 := ListView1.Items.Count - 1 downto i do
    begin
      if str = ListView1.Items[i2].SubItems.Strings[2] then ListView1.Items[i2].Delete;
    end;
  end;
end;

[cutter47]

Спасибо за помошь большое, но этот код удаляет лишнее =(
Он сравнивает только по
ListView1.Items[i2].SubItems.Strings[2]
а нужно чтоб совпадало еще и с ListView1.Items[i2].SubItems.Strings[1]

[cutter47]

Огромное спасибо за неоценимую помощь, дальше сам чуток переписал, чтоб с первым столбом тоже сравнивало

procedure TForm1.Button11Click(Sender: TObject);
var
  i, i2: Integer;
  str,str2: String;
begin
  i := 0;
  while i < ListView2.Items.Count do
  begin
    str := ListView2.Items[i].SubItems.Strings[1];
    str2:= ListView2.Items[i].SubItems.Strings[4];
    inc(i);
    for i2 := ListView2.Items.Count - 1 downto i do
    begin
      if ((str = ListView2.Items[i2].SubItems.Strings[1]) and (str2 = ListView2.Items[i2].SubItems.Strings[4])) then ListView2.Items[i2].Delete;
    end;
  end;
end;

[evg_m]

for i2 := ListView2.Items.Count - 1 downto i

проверит в том числе и саму исходную(поверяемую на совпадение)

    str := ListView2.Items[i].SubItems.Strings[1];
    str2:= ListView2.Items[i].SubItems.Strings[4];

и конечно сочтет ее равной
и при i2=i

then ListView2.Items[i2].Delete;

[BDA]

evg_m, поэтому перед циклом inc.

[cutter47]

спасибо, в коде учту.

[cutter47]

Сообщение от evg_m

проверит в том числе и саму исходную(поверяемую на совпадение)

и конечно сочтет ее равной
и при i2=i

Вы хотите сказать что она удалит и исходную строку, или как вас понять. ?

[evg_m]

Вы хотите сказать что она удалит и исходную строку, или как вас понять. ?

в данном случае нет.
поскольку

evg_m, поэтому перед циклом inc.

и мы нашу строку исключили таким образом из проверки на удаление.

[cutter47]

Ясно, спасибо за разъяснение.