Работа с динамическими массивами

[spectrum988]

Доброго времени суток.Скажите пожалуйста как удалить из динамического массива конкретный элемент(например все четные) ?

[indexx]

А книжки ты по какой причине не хочешь читать?

[Stilet]

как удалить из динамического массива конкретный элемент(например все четные) ?

Только переписав в новый массив.

[indexx]

Странно. Я думал, можно обойтись простым сдвигом, и изменением длины массива

[Stilet]

и изменением длины массива

Можно и так. Я предпочитаю пересоздавать массив.

[Simply-Art]

Для задачи удаления выгодней использовать второй динамический массив для скорости. Поясню, вы просматриваете первый массив и если элемент соответствует условиям, вы его переносите во второй массив.

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

[Stilet]

Возможно я не прав.

Что то, что то по скорости будет одинаково, если при переносе с места на место не проводить перенос последующих элементов сразу, а просто запоминать позицию куда перенесено. Я тут неоднократно давал алгоритм шринковки массива. Там два индекса: Элемент, который сравнивается и элемент куда переносится. Если сравниваемый не отвечает условию удаления оба индекса инкрементируются. Иначе второй индекс не меняется. Таким образом и проверка и перенос идет в одном цикле. А потом переобразмеривание массива либо урежет либо пересоздаст в новое место его. Тут уж я не знаю как менеджер памяти Делфи нонче работает.

[indexx]

Не будет это по скорости одинаково, так как в предложенном мной варианте не происходит ни каких действий с элементами стоящими до удаляемого элемента.

[Stilet]

так как в предложенном мной варианте не происходит ни каких действий с элементами стоящими до удаляемого элемента.

Ты не учел задание:

например все четные

Соответственно у тебя нет номера удаляемого элемента.

[min@y™]

Короче...

type
  TVector = array of Integer;
  
// удаление чётных из динмассива
function DeleteEven(const Source: TVector): TVector;
var
  Len, Index, Count: Integer;
begin
  Len:= Length(Source);
  SetLength(Result, Len);
  Count:= 0;
  
  for Index:= 0 to Len - 1 do
    if Odd(Source[Index])
      then begin
             Result[Count]:= Source[Index];
             Inc(Count);
           end;
           
  SetLength(Result, Count);
end;