| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление записи из массива [D6, WinXP]

XeON ©   (2006-07-12 00:37:00) 

Все здравствуйте. Хотелось бы узнать, как удалить элемент не нужный из динамческого массива? Но не обнулить, а именно удалить!  Так, что бы все остальные элементы сдвинулись вверх на 1. Если это имеет какое-то отношение к делу, то это массив записей. Т.е. массив типа TRecord.

---

begin...end   (2006-07-12 11:28:00) [1]

> han_malign ©   (12.07.06 10:43) [5]

Спасибо, но об этом способе я знаю (если, конечно, в третьей строке имелось в виду заполнение нулями). Однако назвать его наиболее простым я не могу -- обычное поэлементное присваивание гораздо проще. О чём и было сказано в [4].

---

han_malign   (2006-07-12 10:43:00) [2]

> begin...end ©   (12.07.06 07:25) [4]
> а путём поэлементного присваивания

Finalize(a[n]);
move(...);
FillChar(a[High(a)], sizeof(a[High(a)]));
SetLength(a, High(a));

---

begin...end   (2006-07-12 07:25:00) [3]

В случае, если TRecord содержит поля типов с управляемым временем жизни, [1] не годится. В общем случае наиболее простым решением будет сдвиг не с помощью Move, а путём поэлементного присваивания, с последующим уменьшением длины массива.

---

XeON   (2006-07-12 01:37:00) [4]

Спасибо за помощь, огромное! Данная информация меня просто спасла (от смерти :). Ещё раз спасибо, что откликнулся!

---

Palladin   (2006-07-12 00:48:00) [5]

и после еще
SetLength(a,High(a));

---

Palladin   (2006-07-12 00:46:00) [6]

Type
TMyRec=Record
 ...
End;

Var
a:Array of TMyRec;

...
// удаление элемента с номером n
Move(a[n+1],a[n],(Length(a)-n-1)*SizeOf(TMyRec));

---

Наверх