Задача на обнаружение двух совпадающих строчек в ListBox

[NiKiToZZ-]

в общем есть у меня листбокс. В него приходят значения с Client сокета. Мне нужно сделать так, чтобы программа по нажатии на кнопку находила совпадающие строки. Например, если в 5 и, скажем 100 строчке есть одинаковый текст "254", тогда программа должна выдать сообщение "Найдено совпадение: (значение 5-ой строчки) и (значение 100-ой строчки)"

[NiKiToZZ-]

блин люди! на данный момент тему посмотрело 29 человек. ну неужели вам так сложно ответить? Сами вы кроме 5 минут времени ничего не потеряете а я могу потерять очень многое. например уважение. ведь я не для себя пишу а для людей которые сидят и ждут!

[Serge_Bliznykov]

так непонятно же, что именно у Вас не получается?!!

так устроит?

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  i := ListBox1.Items.Count-1;
  while i>=0 do begin
     j := ListBox1.Items.IndexOf(ListBox1.Items[i]);
     if (j>=0) and (j<i) and (i>=0) then
       ShowMessage('Совпали строчки '+IntToStr(j+1)+' и '+IntToStr(i+1));
     Dec(i);
  end;
end;

[NiKiToZZ-]

да действительно код работает. но я просил чтобы в сообщение выпадали ЗНАЧЕНИЯ строчек, а не номера самих строчек. Не могли бы вы модернизировать код?

[baster128]

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
for i:=0 to Lb.Items.count-2 do
for j:=i+1 to Lb.Items.count-1
if lb.items[i]=lb.items[j] then showmessage(lb.items[i]+' и '+lb.items[j]);
end;

[Serge_Bliznykov]

чтобы в сообщение выпадали ЗНАЧЕНИЯ строчек, а не номера самих строчек.

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  i := ListBox1.Items.Count-1;
  while i>=0 do begin
     j := ListBox1.Items.IndexOf(ListBox1.Items[i]);
     if (j>=0) and (j<i) and (i>=0) then
       ShowMessage('Совпали строчки '+IntToStr(j+1)+' и '+IntToStr(i+1)+' значение строки: '+ListBox1.Items[i]);
     Dec(i);
  end;
end;