[Мишка-90]

Здравствуйте, глупый вопрос.. согласен. но все таки его задам.. как удалить повторяющиеся числа в Listbox?

добавляю значения в него

Код:

ListBox1.Items.Add(Edit1.Text);

после на другой кнопке код с циклом по строкам:

Код:

var
i : integer;
begin
  for i := 0 to ListBox1.Count - 1 do

end;

и запнулся, уже несколько вариантов решения проблемы было.. но справиться не смог. буду благодарен. хотя знаю что решение элементарное..

[NumLock]

тут решение проще будет в случае если перед добавлением проверять наличие такого значения в списке, чем потом удалять дубли:

Код:

  if ListBox1.Items.IndexOf(Edit1.Text)=-1 then
    ListBox1.Items.Add(Edit1.Text);

[lmikle]

Ну не всегда годится. Надо идти с конца списка в начало и проверять все предыдущие элементы.

Код:

for i := ListBox1.Items.Count-1 To 1 Do
  for j := I-1 DownTo 0 Do
     If ListBox1.Items[i] = ListBox1.Items[J] Then
       Begin
         ListBox1.Items.Delete(I);
         Break;
       End;