Процедура вствки элемента в динамический массив

[val_nnm]

Динамические массивы нумеруються с 0. И как мне кажеться логичнее здесь нумеровать элементы от 0 тоже. Но это вопрос исключительно договорённости.

Но если нужно именно чтобы индекс интерпретировался от 1 то напишите

procedure Ainsert (var A:Areal;R:integer; Ind:integer);
var N:Integer;
     I:Integer;
begin
  N:=Length(A);
  SetLength(A, N+1);
  for i:=N-1 downto Ind-1 do
    A[i+1]:=A[i];
  A[ind-1]:=R;
end;

либо можно в процедуре интерпретировать индекс от нуля а в графическом интерфейсе от 1.
тогда процедуру Ainsert не меняйте. А напишите в коде обработке нажатия на кнопку

...
  Ainsert(A,StrToInt(Edit2.Text),StrToInt(Edit3.Text)-1);
...

Второй вариант мне кажеться более правильным.

[Beren42]

Спасибо большое

[Beren42]

А теперь я хочу удалить элемент по индексу. Мне хотелось бы сделать его самим ). Я хочу, чтобы Вы меня направили в нужном направлении. То есть надо создать Memo3. В нём будет массив CreateMas после удаления элемента. Намекните, пожалуйста, что нужно поменять в коде
##
procedure Del(var A:Areal; x:integer);
var N:Integer;
I:Integer;
begin
N:=Length(A);
SetLength(A, N-1);
for i:=0 to N-1 do
Finalize (A[x]);
end;

[val_nnm]

Ну начнём. Для удаления элемента нужно свинуть все элементы которые находяться после удаляемого элемента на 1 позицию назад. Чтобы они закрыли удаляемый элемент собой. (Т.к. функция SetLength добавляет или удаляет элементы только в конце массива. ) И затем изменить Размер результирующего массива на 1.

Здесь N:=Length(A); вы делаете правильно. Строку SetLength(A, N-1); переместите в самый конец.

А вот сдвиуть элементы нужно следующим образом.
A[X] := A[X+1];
A[X+1] := A[X+2];
A[X+2] := A[X+3];
...
A[N-1] := A[N];


для этого нужен цикл.
Есть несколько вариантов как именно организавать такой цикл.
Всё они в общем одинаковые. Ну например сделайте цикл от X до N-1. (можно сделать и от X+1 до N но это уже дело вкуса). Ну и в цикле в зависимости от выбранного вами варианта напишите соответсвующее уравнение для переноса значение из одной ячейки массива в другую.

В общем это в словах чтобы вы сами разобрались. Если у вас не получиться. Я тогда напишу вам готовый код.

[Beren42]

Чего-то не хватает ... (
procedure Del(var A:Areal; x:integer);
var N:Integer;
I:Integer;
begin
N:=Length(A);
for x:=1 to N-1 do

A[i-1]:= A[i];
SetLength(A, N-1);

[Beren42]

Немного подумав
begin
N:=Length(A);
for i:=x to N-1 do
A[i-1]:= A[i];
SetLength(A, N-1);
end;

[val_nnm]

Меленькое уточнение.

Если мы индекс считаем с 1 тогда вы совершенно правильно написали

begin
  N:=Length(A);
  for i:=x to N-1 do
    A[i-1]:= A[i];
  SetLength(A, N-1);
end;

А если индекс считать с 0 тогда

begin
  N:=Length(A);
  for i:=x to N-2 do
    A[i]:= A[i+1];
  SetLength(A, N-1);
end;

[Beren42]

Спасибо огромное

[Beren42]

А как сделать, чтобы процедура Del удаляла элемент исходного массива , а не после вставки элемента. В такой последовательности так происходит
Код
#
procedure TForm1.Button1Click(Sender: TObject);
var
N:integer;
begin
N:=StrToInt(Edit1.Text);
CreateMas(A,N);
Memo1.Clear();
ShowMas(A,Memo1);
Ainsert(A,StrToInt(Edit2.Text),StrT oInt(Edit3.Text)-1);
Memo2.Clear();
ShowMas(A,Memo2);
Del(A,StrToInt(Edit4.Text));
Memo3.Clear ;
ShowMas(A,Memo3);



end;