Помогите!Работа с listbox

[spiteful41]

Имеется листбокс,в нем строки.Нужно каждую строчку сравнить с другими,и если есть повторяющиеся их удалить,а сравниваемую оставить.Помогите,у меня почему-то некорректно работает,напишите свой вариант кода .Заранее спасибо

прогу на делфи пишу

[Stilet]

Помогите,у меня почему-то некорректно работает

Код в студию.

напишите свой вариант кода

Показывай наработки иначе - Фриланс.

[spiteful41]

for i:=0 to listbox1.Items.Count-1 do
for j:=i+1 to listbox1.Items.Count do
if listbox1.Items.Strings[j]=listbox1.Items.Strings[i] then listbox1.Items.Delete[j]

[Stilet]

Так попробуй:

var k,e,i:integer;  s:string;
begin
//********* FOR ******************
i :=0; while i<ListBox1.Items.Count  do
begin
 s:=ListBox1.Items[i];
 e:=ListBox1.Items.IndexOf(s);k:=e;
 e:=ListBox1.Perform(LB_FINDSTRING,e,integer(pchar(s)));
 while e<>k do begin
  ListBox1.Items.Delete(e);
  e:=ListBox1.Perform(LB_FINDSTRING,e,integer(pchar(s)));
 end;
 inc(i);
end;
//******* END FOR ****************{}
end;

[Serge_Bliznykov]

spiteful41, ну, или, если всё же оставить Вашу идею с циклами, то можно так:

  i := 0;
  while i<(listbox1.Items.Count-1) do begin
     j:= (listbox1.Items.Count-1);
     while j>i do begin
       if (listbox1.Items.Strings[j]=listbox1.Items.Strings[i])
         then listbox1.Items.Delete(j);
       Dec(j);
     end;
     inc(i);
  end;

[spiteful41]

Спасибо Всем Огромнейшее!!!!)))