Скачать: CL | DM;

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

← →
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]

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

---

← →
080D:07BBh ©   (2004-10-02 11:36) [8]

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

---

← →
Alex Konshin ©   (2004-10-02 11:47) [9]

Anatoly Podgoretsky ©   (02.10.04 11:12) [7]
Напиши, при том именно ЛЮБОГО

Между прочим это возможно.

---

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

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 сообщения "которая удаляет элемент любого массива."

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.055 c