[KiPiK]

Вот код

Код:

for i:=0 to ListBox1.Items.Count-1 do
  for k:=0 to ListBox1.Items.Count-1 do
    if ListBox1.Items[i]=ListBox1.Items[k] then
      ListBox1.Items.Delete(k);

при выполнении выдаёт ошибку : project raised exception class EStringListError with message 'list index out of bounds (255)'
на строчке if ListBox1.Items[i]=ListBox1.Items[k] then
Я не могу разобраться почему

[Bargest]

Там все написано:

Сообщение от Google Translate

Проект поднял класса исключения EStringListError с сообщением "список индекса за границы (255) '

Если более по-русски - Индекс за границами списка. Почему? Да потому, что ListBox1.Items.Delete удаляет элемент, а границы цикла вы при этом не меняете (в FOR цикле границы считаются один раз, при первом проходе). Так что используйте циклы while/repeat...until.

[KiPiK]

Спасибо, понял как нужно делать.