Корректное удаление элементов массива

[Utkin]

С жары чего-то не догоню .
Смысл в следующем. Имеется список значений. Элементы с этими значениями (не индексами) должны быть удалены. Функция поиск индекса массива по значению есть.

ЗЫ. Массив динамический

-----ДОБАВЛЕНО:------------------

Пример.
Имеется два массива:
А[1]:='ааа';
А[2]:='ааб';
А[3]:='аав';
А[4]:='ааг';
А[5]:='аап';
А[6]:='аар';
А[7]:='аао';
А[8]:='аал';

и
B[1]:='ффф';
B[2]:='ааа';
B[3]:='аап';

В результате работы этой функции в массиве A должны остаться только элементы 'aaa' и 'аап'

[DIgorevich]

Так а в чем суть вопроса? Если есть индексы, то и удалить можно:

  Lab: TComponent;
begin
  for i := 1 to количество удаляемых компонентов do begin
    Lab := FindComponent(название компонента);
    (Lab as TComponent).Free;

[Utkin]

Типа того, но не все так просто. Как только ты удалишь срединный элемент, индексы сместятся. Это первое. И второе в цикле идет одно число элементов, но как только ты удалишь хоть один элемент, то их число станет меньше. Это чревато двумя последствиями. Первое - половина индексов будет пропущена. Второе - переменная i получит значение большее чем текущее число элементов в массиве.

[DIgorevich]

может тогда рекурсией, с вызовом после удаления?

[Utkin]

При большом числе элементов выпадает в Access Violation (еще до наступления Stack Overflow).

[Sparkman]

Создай еще 3й динамический массив типа integer, и в него записывай индексы, которые совпадают в массивах А и В. Затем на основе сохраненных индексов создаешь результирующий массив

ПС: кондиционер надо покупать)

[Utkin]

Создание третьего массива не Айс . Это утрированный пример. Массивы имеют сложные структуры, создание которых накладно как по времени, так и по занимаемому объему.

[DIgorevich]

или как вариант. Ищешь в массиве нужные значения, а все A[i], которые не подходят заносишь в STringlist (столбиком). После прохода по массиву, запускаешь цикл удаления элементов массивов согласно стринглисту. Только в обратном порядке, чтобы индексы не смещались

Либо вообще, искомое куда-нибудь сохраняем, потом очищаем массив и добавляем сохраненное искомое...

[Alex Cones]

Есть другой вариант: считывать массив и удалять элементы нужно сверху вниз, тогда на смещение индексов будет наплевать. downto.

[eoln]

Можно так

move(A[i + 1], A[i], sizeof(A[i]) * (length(A) - i));
setlength(A, length(A) - 1);

Как уже говорили проход с конца