@sylvester
Добрый день!
Для удаления элемента массива необходимо знать его индекс и уже от этого индекса сделать смещение нижестоящих элементов на 1 элемент вверх.
Например:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var
a: array of integer;
i: integer;
begin
//Создали массив из 10 элементов
SetLength(a, 10);
//удаляем элемент с индексом 5 (индексация от 0)
for i:= 4 to 9 do
a[i]:= a[i+1];
SetLength(a, 9);
end;
|
@sylvester
Существует несколько способов удаления элемента из массива в Pascal, в зависимости от того, каким способом вы хотите удалить элемент.
Delete(myArray, elementIndex);
for i := elementIndex to High(myArray) - 1 do myArray[i] := myArray[i + 1];
Move(myArray[elementIndex + 1], myArray[elementIndex], SizeOf(Integer) * (High(myArray) - elementIndex));
Используйте тот метод, который наиболее подходит для вашей конкретной задачи.