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

← →
Gear (2005-06-06 14:40) [0]

Здравствуйте!
Есть в сети функции удаления элементов из динамического массива:

procedure delElem( var A:TRectArray; Index:integer ); var Last : integer; begin Last:= high( A ); if Index < Last then move( A[Index+1], A[ Index ], (Last-Index) * sizeof( A[Index] ) ); setLength( A, Last ); end;

Так вот что делать если динамический массив это:
TCallList = record CallID: string; ani: string; end; ... CallList: array of TCallList;

В данном случае sizeof( A[Index] ) ) - разные величины для каждого элемента. Как выкрутится красиво?

← →
Digitman © (2005-06-06 14:41) [1]

> sizeof(A[Index]))

ой врешь !

← →
Alexander Panov © (2005-06-06 14:45) [2]

Не надо извращаться.
Воспользуйся стандартным способом.

procedure delElem( var A:TRectArray; Index:integer ); var Last: Integer; i: Integer; begin Last := High(A); if Index < Last then begin for i := Index to Last-1 A[Index] := A[Index+1]; end; SetLength( A, Last ); end;

← →
Erik1 © (2005-06-06 14:49) [3]

Если хочеш использовать Move, то запись TCallList должна состоять из простых типов. Вместо String используй ShortString.

← →
Суслик © (2005-06-06 14:50) [4]

можно использоваться move, но запись должна состоять из простых типов, иначе нужно пользоваться фукнцией finilize.

← →
REA (2005-06-06 16:50) [5]

Не надо извращаться, используй два TStringList. Или класс который будет синхронно с ними работать.

В данном случае sizeof( A[Index] ) ) - разные величины для каждого элемента.
С чевойто они разные?
4+4 = 8 байт.
String это ведь указатель и его размер не зависит от длины строки, так что все ОК в delElem.

Может тут проще заюзать связанный список ??
type
PElement = ^TElement;
TElement =record
Data:Pointer;
before:PElement;
end;

Для того что бы удалить что то надо просто осводить память елеменат ( то что хранится в Дата) и указать и сявзать через Before c предидущим

← →
Sapersky (2005-06-06 18:27) [8]

String это ведь указатель... так что все ОК в delElem

Память, на которую он указывает, не освободится (дельфийский менеджер памяти не настолько умный чтобы учитывать затирающие указатель мувы). Нужно предварительно сделать Finalize для удаляемого элемента - Finalize(A[Index]).

Удаление элемента из динамического массива. Найти похожие ветки