А есть процедура, которая удаляет элемент динамического массива?

← →
Piter © (2004-10-01 23:45) [0]

subj

← →
Gero © (2004-10-01 23:46) [1]

Есть конечно. И не одна.
Стандартной нет, если конечно элемент не последний.

← →
Gero © (2004-10-01 23:47) [2]

Руками написать - минута дела.

← →
DeadMeat © (2004-10-01 23:48) [3]

Вот и я думаю что нет. Поэтому пользуюсь (точнее пользовался, когда надо было) move.

---
...Death Is Only The Begining...

← →
Piter © (2004-10-02 01:20) [4]

Gero © (01.10.04 23:47) [2]
Руками написать - минута дела

напиши?

← →
VID © (2004-10-02 01:50) [5]

type TArr = array of string; Procedure DeleteElement(var Arr:TArr; Index:Integer); Var L,I:Integer; begin L := Length(Arr); IF Index>L-1 then exit; For I := Index+1 to L-1 do Arr[I-1] := Arr[I]; SetLength(Arr, L-1); end;

← →
Piter © (2004-10-02 11:03) [6]

Ну это очевидно... я ведь про процедуру (желательно стандартную), которая удаляет элемент любого массива.

← →
Anatoly Podgoretsky © (2004-10-02 11:12) [7]

Напиши, при том именно ЛЮБОГО

Piter
используй TList там все стандартное

array of TComplex1Structure
array of array of TComplex2Structure
array of array of array of TComplex3Structure

Удалить любой элемент массива, например
1
1,2
1,2,3

procedure DelElement(var ar; const Indexes of const); begin ... end;

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

А есть процедура, которая удаляет элемент динамического массива? Найти похожие ветки