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

[Utkin]

Всем спасибо, но мне ближе вариант от Alex Cones. Кому интересно, есть еще вариант с while вместо for, тогда приращение индексов нужно проводить только в случае если элемент удалять не надо.

[Stilet]

Хм... Я лично предпочитаю путь дольше но надежнее.
Вместо массива использовать TObjectList. Массив обьектов, которые имеют поле уникального индекса и собственно значения.
Если мне нужно удалить какой-то элемент то сместятся индексы только в ObjectList, но уникальные ключи в самих обьектах останутся неизменными, именно по ним и делать поиск.

[Utkin]

Примерно так и есть. Только я хеши делал вручную. Сначала есть хеши для строк (они хранятся в единственном экземпляре, даже если в массивах будет много дубликатов), потом есть хеши для элементов структур (потому что здесь рассматривается динамический массив динамических массивов) и только потом уже есть хеши именно для данного массива - самый верхний уровень. Здесь же интересно именно физическое удаление элементов из массива.

[igh0st]

Чтобы при удалении не бился индекс элементы можно удалять с конца в обратном цикле.

[Utkin]

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

Чтобы при удалении не бился индекс элементы можно удалять с конца в обратном цикле.

Да спасибо, я так и сделал. Мне уже предложил такой вариант Alex Cones.

[Stilet]

можно удалять с конца в обратном цикле.

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

[Utkin]

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

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

Именно в этом и была загвоздка. Если просматривать динамический массив сначала то так и есть. А если с конца то всем плевать.

[chertovich]

Чтобы удалить какой-нибудь элемент, необходимо следующиее за ним элементы "сдвинуть" на один элемент влево.
Лучше всю эту работу разбить на функции и процедуры, хорошенько обдумать, и сделать! Если нужна моя помощь погу помочь после того, когда напишить четкое задание....

[chertovich]

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

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

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

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

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

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

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

А вообще-то что здесь делать? Перебираешь циклом массив и если элемент найден то не добавляем, иначе добавляем.... Проще этого, наверное, сходить посцать...

[chertovich]

unit ChildWin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A: array of String;
  B: array of String;

procedure GetMassiv(Element: String);

implementation

{$R *.dfm}

procedure GetMassiv(Element: String);
var
  I: Integer;
begin
  SetLength(B, 0);
  for I := Low(A) to High(A) do
  begin
    if A[I] = Element then
    else
      begin
        SetLength(B, Length(B) + 1);
        B[High(B)] := A[I];
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetMassiv('abc');
end;

end.

Вот код, но я его не проверял