@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));
Используйте тот метод, который наиболее подходит для вашей конкретной задачи.