Есть функция:
function Create(DB : TDBDinArray):boolean;
begin
...
repeat
...
Move(DB[I + 1], DB[I], ( Length(DB) - I) * SizeOf(DB[0]));
Setlength(DB, Length(DB) -1);
...
Until ...
...
end;

вызываю так:
res:=Create(RightDB);

type
TDBRecord = record
ID : Integer;
Father : Integer;
Name : String[30];
Path : String[255];
Parameters : string[30];
Shortcut : string[30];
IconPath : String[255];
end;

type
TDBDinArray = array of TDBRecord;

По идеи с массивом RightDB ничего не должно случиться НО происходит вот что : При первом вызове функции(move) она удалает элемент не только в DB (лок переменная) но и в RightDB !! почему ??? Причем когда она вызывается 2-й 3... и.т.д. то удаляются элементы только массива DB ! заменял этод код на :
For Z:=I to Length(DB) - 2 do DB[Z]:= DB[Z+1];
толку никакого, тожу самое - элемент преносится на последнее место у обоих массивов ( Почему непонятно , обясните пожалуйста .

Цитата(bloodman @ 5.9.2004, 22:09)

почему ???

Потому что динамический массив передаётся ссылкой. Т.е. при вызове Create не создаётся копии массива RightDB.
Таким образом в твоём случае эти две записи эквивалентны:
function Create(DB : TDBDinArray):boolean;
function Create(var DB : TDBDinArray):boolean;

Цитата(bloodman @ 5.9.2004, 22:09)

Причем когда она вызывается 2-й 3... и.т.д. то удаляются элементы только массива DB !

Этого быть не должно. Проверь...

Цитата

Таким образом в твоём случае эти две записи эквивалентны: Код function Create(DB : TDBDinArray):boolean; function Create(var DB : TDBDinArray):boolean;

Почти эквивалентны.

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

Цитата

Цитата (bloodman @ 5.9.2004, 22:09) Причем когда она вызывается 2-й 3... и.т.д. то удаляются элементы только массива DB ! Этого быть не должно. Проверь...

Согласен. И в первом случаи она не должна удалять, проверить это ты можеш через Length(RightDB) после вызова функции.

Это сообщение отредактировал(а) Girder - 6.9.2004, 12:02

Спасибо за поправку, про SetLength не подумал...

В том то и дело! я эте проверяю поставив breakpoint и смотрю содержимое масивов DB и RightDb. Я и сам об этом потом подумал (о передаче ссылки) НО тогда бы и вправду удалялись бы все элементы и я бы не мучался над ответом на этот вопрос .