подскажите как избавится от части данных в массиве

← →
lena19 (2003-12-24 21:44) [0]

всем привет
подскажите как избавится от части данных в массиве

нужно елемент №2 поставить на место №1
елемент №3 на место №2
и так до конца массива

← →
Anatoly Podgoretsky © (2003-12-24 21:49) [1]

сдвиг

← →
Юрий Зотов © (2003-12-24 22:00) [2]

> lena19 (24.12.03 21:44)

Посмотрите в справке:
- dynamic arrays
- Move (или CopyMemory)
- SetLength.

← →
lena19 (2003-12-24 22:20) [3]

TO Юрий Зотов
предложенными вами методами можно избавится от последних елементов а мне надо от первых.
или я чтото не так поняла ?

← →
Юрий Зотов © (2003-12-24 22:29) [4]

> lena19 (24.12.03 22:20) [3]

Анатолий же сказал - СДВИГ.

Сначала сдвиг к началу (Move), потом удаление ставших уже ненужными последних (SetLength).

Что-то типа этого (не проверял, проверьте сами!):

type
TArray: array of integer;

procedure DeleteFromBeginning(Source: TArray; Count: integer);
// Count - сколько первых элементов надо удалить
begin
if (Count > 0) and (Count < Length(Source)) then
begin
Move(A[Count], Source[0], (Length(Source) - Count) * SizeOf(Integer));
SetLength(Source, Length(Source) - Count)
end
end;

lena19 (24.12.03 22:20) [3]
Других иетодов для массивов и приравненых к ним файлы, строки, любые линейные структуры, кроме сдвига нет. Сдвигаться может остаток на место удаленного или перемецение последних элементов, если позволяет задача нет. По окончанию сдвига изменяется длина для динамических или изменение счетчика для статических.
Что бы было предметнее желательно иметь описание массива, тогда можно подсказать самый оптимальный путь.

подскажите как избавится от части данных в массиве Найти похожие ветки