Форум: "Потрепаться";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Вниз
А есть процедура, которая удаляет элемент динамического массива? Найти похожие ветки
← →
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,3procedure DelElement(var ar; const Indexes of const);
begin
...
end;
Любого это значит именно любого массива, любых размерностей и типов, включая сложные. Если есть сомнения про постановку вопроса, то вот выписка из 6 сообщения "которая удаляет элемент любого массива."
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.033 c
