Удаление элемента дин. массива[Решено]

[novo]

Доброго времени)

Немного по бояним)
Нашел в сети вот такую штуку для удаления элементов динамического массива

Код: Выделить всё

A: array of .....

.......

Last:= high(A);
  move(A[Index+1],A[Index],(Last-Index)*sizeof(A[Index]));
  setlength(A,Last);

да вот проблема при работе губится часть данных, а именно если массив такого вида

Код: Выделить всё

Ta= record
    Date: Tdate;
    Time: Ttime;
    TypeRecord: integer;
    text: string;   
    param: string   
  end;

..........

var
A: array of Ta;


Подскажите, как с этим боротся?

Заранее спасибо!!!

[SSerge]

Подскажите, как с этим боротся?

Не работать на перекрывающихся областях памяти. Раз.
Внимательно прочитать описание процедуры move. Там написано, почему сие происходит.

Код: Выделить всё

  Last:= high(A);
  move(A[Index+1],A[Index],(Last-Index)*sizeof(A[Index]));
  setlength(A,Last);


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

И, я бы сказал, без особой необходимости и чёткого понимания, что вы делаете, не стоит никогда пытаться работать с внутренним двоичным представлением данных. Сделайте копирование через цикл - так хоть будет работать, если накодите правильно. И, если есть необходимость менять динамически размер массива, то для этой цели есть TList и его наследники и масса других библиотек.

[debi12345]

Нижеперечисленный код работает на простых типах. Кстати, RECORD-ы пробовали объявлять PACKED ?

procedure additem(var dest: winidarty; const value: winidty);
begin
setlength(dest,high(dest)+2);
dest[high(dest)]:= value;
end;

procedure deleteitem(var dest: stringarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
dest[index]:= '';
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
pointer(dest[high(dest)]):= nil;
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: msestringarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
dest[index]:= '';
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
pointer(dest[high(dest)]):= nil;
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: integerarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: booleanarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: realarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: complexarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: pointerarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
setlength(dest,high(dest));
end;

procedure deleteitem(var dest: winidarty; index: integer);
begin
if (index < 0) or (index > high(dest)) then begin
tlist.Error(SListIndexError, Index);
end;
move(dest[index+1],dest[index],sizeof(dest[0])*(high(dest)-index));
setlength(dest,high(dest));
end;

[stikriz]

Замените в структуре типы строк на короткие, например string[200] или сколько там надо.

[qivi]

А я перебираю массив в цикле, переписывая его в другой "сервисный" массив, естественно кроме удаляемого элемента. Ничего не теряется даже если в рекорде объявлен ещё массив, вроде и на скорость не жалуюсь (хотя ещё не довелось потестить на действительно крупных массивах). Это сильно кривой подход?

[zub]

Код из первого поста кроме потери стрингов в A[last-1] массива содержит еще и утечку стрингов из A[Index] - стираемый элемент не финализируется.
По идее должно быть чтото наподобии:

Код: Выделить всё

A: array of ta
temp:ta
.......
Last:= high(A);
temp:=A[Index];
move(A[Index+1],A[Index],(Last-Index)*sizeof(ta));
fillchar(a[last],0,sizeof(ta));
a[last]:=temp;
setlength(A,Last-1);

[svk12]

А не проще ли использовать TList?

[novo]

Использовал копирование через цикл

Спасибо всем