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

[Beren42]

Друзья , нужна помощь. Я создал процедуру создания динмаического массива CreateMas. Она нормально работает. Теперь нужно создать процедуру вставки элемента в динамический массив. А вот с этим проблемы (. Спасибо тем, кто поможет. Привожу весь код:

implementation
type
Areal=array of integer;
  var  a:Areal ;
  N,i:integer;
{$R *.dfm}

  procedure CreateMas(Memo1:Tmemo);
begin
SetLength(A,N);
for I:=0 to N-1 do
 begin
  A[i]:=i+1;
  Memo1.Lines.Add(IntToStr(A[i]));
 end;
end;
procedure Ainsert (var A:Areal;R:integer; Ind:integer;Memo2:Tmemo);
begin
         N:=Length(A);
          SetLength(A, N+1);
     for i:=N-1 downto Ind do
         A[i+1]:=A[i];
     A[ind]:=R;
          for I:=0 to N-1 do
        Memo2.Lines.Add(IntToStr(A[i]));
          end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
  n:=StrToInt(Edit1.Text);
CreateMas(Memo1);
Ainsert(A,StrToInt(Edit2.Text),StrToInt(Edit3.Text), Memo2);

  end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) крайне не рекомендую смешивать формальные параметры и глобальные!
(например, в CreateMas вы передаёте Memo1 - но зато во всю исполльзуете сам массив A и переменную N

2) у Вас в процедуре Ainsert N не изменяется!
попробуйте так:

procedure Ainsert (var A:Areal;R:integer; Ind:integer;Memo2:Tmemo);
begin
    N:=Length(A) + 1;
    SetLength(A, N);
....

p.s. не стал исправлять передачу N (она используется как глобальная переменная), но это в сущности, не очень правильно и красиво! рекомендую переделать.

И ещё, совет на будущее, описывайте все переменные ПОСЛЕ описания процедур, перед главным begin программы.
Тогда при попытке использовать переменную как глобальную - компилятор выдаст ошибку и Вы сможете описать передачу нужной переменной в качестве параметра.
И второе, в этих же целях рекомендую по разному называть формальные параметры и фактические. Ну, например, не procedure Ainsert (var A:Areal ...
а procedure Ainsert (var AMas:Areal
это опять таки позволит избежать невольного использования глобальных переменных.

[val_nnm]

Ну особенного криминала не вижу в вашем коде. Есть конечно стилистически не очень хорошие моменты. Но в целом должно всё работать. В чём конкретно у вас проблемма?

Единственное замечание при вывод в Memo2 вы теряете последний элемент.

Нужно написать либо

          ...
          for I:=0 to N do
            Memo2.Lines.Add(IntToStr(A[i]));
          end;
          ...

либо

          ...
          N := Length(A);
          for I:=0 to N-1 do
            Memo2.Lines.Add(IntToStr(A[i]));
          end;
          ...

Ну а вот в целом немного стиль подправил

implementation
type
Areal=array of integer;
  var  a:Areal ;
{$R *.dfm}

procedure CreateMas(var A:Areal;integer N);
var I:Integer;
begin
  SetLength(A,N);
  for I:=0 to N-1 do
  begin
    A[i]:=i+1;
    Memo1.Lines.Add(IntToStr(A[i]));
   end;
end;
procedure ShowMas(var A:Areal;Memo:TMemo);
var N:Integer;
     I:Integer;
Begin
  N := Length(A);
  for I:=0 to N-1 do
  begin
    Memo.Lines.Add(IntToStr(A[i]));
  end;
End;
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 do
    A[i+1]:=A[i];
  A[ind]:=R;
end;

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),StrToInt(Edit3.Text));

  Memo2.Clear();
  ShowMas(A,Memo2);  
end;

end.

(Писал без проверки, поэтому могуть быть ошибки. Если чтонибуть будет непонятно, напишите)

[Beren42]

А почему передача N неправильно и некрасиво ?

[Serge_Bliznykov]

А почему передача N неправильно и некрасиво ?

потому что передачи N в вашем случае НЕ происходит! Вы используете ГЛОБАЛЬНУЮ переменную.
Вот, ознакомтесь внимательно с примером кода, который привёл val_nnm
Там этой проблемы с использованием глобальных переменных нет!

единственное замечание к его коду - это надо убрать вывод в Memo1 в процедуре CreateMas

[Beren42]

С этим понятно. А зачем тогда в CreateMas Memo1.Lines.Add(IntToStr(A[i])); ? . Если по сути тоже самое в ShowMas ?

[Serge_Bliznykov]

Сообщение от Beren42

С этим понятно. А зачем тогда в CreateMas Memo1.Lines.Add(IntToStr(A[i])); ? . Если по сути тоже самое в ShowMas ?

А вот тут я с Вами согласен.
Думаю. что val_nnm это просто пропустил.
Эту строчку надо удалить из процедуры CreateMas

[Beren42]

Но не вставляется . При n=5, R=23, Ind=4.
Memo1
1
2
3
4
5
Это правильно.
Но Memo2
1
1
1
1
23
1
Совсем не то

[Beren42]

Ложная тревога ). Это я не то написал. Извините. Всем спасибо

[Beren42]

И крайний вопрос ). Индекс вставки -это куда в Memo2 поставить новый элемент ? При n=5, r=44,ind=1. Как я понимаю на первое место поставить 44 . Так ?. А он
Memo1
1
2
3
4
5
Memo2
1
44
2
3
4
5
То есть на второе место . Но ведь это неправильно ?