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

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

Удаление элементов из масива [D7, XP]

Алексей1985 ©   (2008-09-22 07:42:00) 

Здравствуйте,извиняюсь за элеменатрный вопрос, но очень нужна помощь. Подскажите пожалуйста алгоритм удаления нескольких элементов массива по условию, или исправьте мой:
(Var   A : array of integer; i, n , cell : integer; cell2: AnsiString;)
{Массив уже заполнил рандомом}
For i:=0 to n-1 do
begin
cell2:=inttostr(A[i]);
cell:=i;
If AnsiRightStr(cell2, 1) = '0' then    {Оканчивается ли элемент на 0?}
begin
For i:=cell to n-1 do
 A[i]:=A[i+1];
n:=n-1
end
end;

Проблема в том что он удаляет только первый удовлетворяющий условию элемент.
Спасибо.

---

Германн   (2008-09-23 00:50:00) [1]

> Anatoly Podgoretsky ©   (22.09.08 09:03) [3]

Хм. Вот самому стало интересно узнать как компилятор обслужит данный код. Когда во внутреннем цикле в качестве "переменной цикла" в коде используется та же переменная, что и во внешнем.

---

Алексей 1985   (2008-09-22 21:41:00) [2]

> Anatoly Podgoretsky ©   (22.09.08 09:03) [3]


Ну как я задумывал, во внешнем цыкле происходит поиск элемента, удовлетворяющего условию. А во вложенном удаление этого элемента.

---

Anatoly Podgoretsky   (2008-09-22 09:03:00) [3]

> Алексей1985  (22.09.2008 7:42:00)  [0]

Какой то особо бессмысленный код, особенно интересно с вложеным циклом.

---

Алексей 1985   (2008-09-22 08:40:00) [4]

MBo, Огромное спасибо!

---

MBo   (2008-09-22 07:46:00) [5]

j := 0;
for i := 0 to High(A) do
 if (A[i] mod 10) = 0 then
   Inc(j)
 else {if j <> 0 then  //добавить, если удаляемых элементов предполагается мало}
  A[i - j] := A[i];

---

Наверх