Удаление элемента динамического массива

[mrCloud]

Есть тип например

TValues = record
   Price,term:integer;
 end;

и по нему создан динамический массив

var
Valies:array of TValues

Вопрос: как удалить элемент с заданным индексом?

[Serge_Bliznykov]

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

for i:=K+1 to Length(Valies)-1 do
   Valies[i-1] := Valies[i];
SetLength(Valies, Length(Valies) - 1);

Внимание. Вообще операции изменения размера динамического массива ресурсоёмкие. А тут ещё и цикл (представьте, Вы удаляете 2-й элемент в массиве из миллиона элементов. Надо 999998 элементов переместить в памяти. Это весьма не быстро.

Поэтому рекомендую посмотреть в сторону связных динамиских списков. Там опреция удаления сводится к изменению ссылки(или пары ссылок) и очистке памяти одного элемента. Это практически мгновенно происходит (т.е. не затрагивает остальные элементы этой динамической структуры)

[veniside]

если порядок не важен, вместо сдвига можно менять местами с последним элементом

Length(Valies)

возвращает количество элементов в массиве, а нумеруются они с 0. Так что или - 1 добавить, или лучше использовать high().

[Serge_Bliznykov]

Length(Valies)
возвращает количество элементов в массиве, а нумеруются они с 0. Так что или - 1 добавить, или лучше использовать high().

согласен. важное замечание. Это я ошибся.
исправил в исходном сообщении

если порядок не важен, вместо сдвига можно менять местами с последним элементом

и с этим согласен. Хотя мне связные списки всё равно как-то больше нравятся

[chertovich]

Сообщение от mrCloud

Есть тип например

TValues = record
   Price,term:integer;
 end;

и по нему создан динамический массив

var
Valies:array of TValues

Вопрос: как удалить элемент с заданным индексом?

Удалить из массива элемент просто так нельзя (потому что элементы массива всегда хранятся в соседних ячейках памяти), это делается при помощи того, что заново перераспределяют память на массив, но как было сказано, это сильно влияет на производительность.
Но лучшим (по производительности, но не по размеру памяти) сделать поле флаг, который будет означать, обрабатывать или нет этот элемент массива

TValues = record
  Price,term:integer;
  Exist: Boolean;
end;
...
for I := 0 to High(Valies) do
begin
  if Valies[I].Exist then
  begin
    // Обработка
  end;
end;

И для "удаления" (исключения из обработки) присваиваем Valies[I].Exist := False;

Но если все-таки хочешь удаление, то

  TValues = record
    Price, Term:integer;
  end;
  TValuesArr = array of TValues;

var
  Form1: TForm1;
  V: TValuesArr;

function DeleteEl(V: TValuesArr; Index: Integer): TValuesArr;

implementation

{$R *.dfm}

function DeleteEl(V: TValuesArr; Index: Integer): TValuesArr;
var
  NewSize: Integer;
  I, Ind: Integer;
begin
  NewSize := Length(V) - 1;
  if Index > NewSize {Length(V) - 1} then
    raise Exception.Create('Указанный элемент не существует');
  SetLength(Result, NewSize);

  Ind := 0;
  for I := 0 to High(V) do
  begin
    if I <> Index then
    begin
      Result[Ind] := V[I];
      Inc(Ind);
    end;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(V, 5);
  V := DeleteEl(V, 4);
end;

[mrCloud]

Спасибо огромное получилось

[Sёker]

Сообщение от Serge_Bliznykov

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

for i:=K+1 to Length(Valies)-1 do
   Valies[i-1] := Valies[i];
SetLength(Valies, Length(Valies) - 1);

Внимание. Вообще операции изменения размера динамического массива ресурсоёмкие. А тут ещё и цикл (представьте, Вы удаляете 2-й элемент в массиве из миллиона элементов. Надо 999998 элементов переместить в памяти. Это весьма не быстро.

Поэтому рекомендую посмотреть в сторону связных динамиских списков. Там опреция удаления сводится к изменению ссылки(или пары ссылок) и очистке памяти одного элемента. Это практически мгновенно происходит (т.е. не затрагивает остальные элементы этой динамической структуры)

А что, если использовать функцию move? Я бы сделал так. Спрашиваю, потому что: "Вдруг нельзя"

Ни решает ли процедура функции Move проблему затрат времени при удалении элемента из массива?

[Stilet]

В принципе решает.