Как правильно заполнить динамический массив через поля Edit1 и Edit2?

[Катя93]

Я это уже учла и пернесла n:=n+1 вниз.Вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin


SetLength(arr, n);
SetLength(arr[n], 2);


arr[n,0]:= StrToInt(Edit1.Text);
arr[n,1]:= StrToInt(Edit2.Text);

n:=n+1;

end;

Access violation at address 00404C3C in module 'Project1.exe'. Write at address 00000000.

[ForenLi]

И теперь создаете массив размера 0

[macomics]

procedure TForm1.Button1Click(Sender: TObject);
begin

n:=n+1; {сначала увеличивайте}

SetLength(arr, n);
SetLength(arr[n], 2);


arr[n-1,0]:= StrToInt(Edit1.Text); {от 0 до n-1}
arr[n-1,1]:= StrToInt(Edit2.Text);

end;

[Катя93]

Ничего не пойму, программа все время вылетает когда я пытаюсь записать данные в массив.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  arr:array of array of Integer;

  n:Integer = 0;
  min,max:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
Memo1.Clear;

for i:=0 to n do
begin
ShowMessage(IntToStr(arr[i,0]));

Memo1.Lines.Add('min='+IntToStr(arr[i,0]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
n:=n+1; 
SetLength(arr,n);
SetLength(arr[n],2);

min:=0;
max:=0;

min:=StrToInt(Edit1.Text);
max:=StrToInt(Edit2.Text);
ShowMessage(IntToStr(max));
arr[n-1,0]:=min;
arr[n-1,1]:=max;

end;

end.

[macomics]

SetLength(arr[n-1],2);

Теперь уже у меня та же ошибка.

Нашел я заметку про обнуление. Это было сказано в качестве предупреждения при работе с многомерными массивами разной длины.

[BDA]

Сообщение от Катя93

for i:=0 to n do

Тут тоже вылезли за границы массива. Чтобы не думать о границах, можно сделать так:

for i := Low(arr) to High(arr) do

[Катя93]

Столько всего надо учесть при работе с массивами. Теперь все работает, спасибо.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  arr:array of array of Integer;

  n:Integer = 0;
  min,max:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
Memo1.Clear;

for i := Low(arr) to High(arr) do
begin


Memo1.Lines.Add('min='+IntToStr(arr[i,0])+', max='+IntToStr(arr[i,1]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
n:=n+1; 
SetLength(arr,n);
SetLength(arr[n-1],2);

min:=0;
max:=0;

min:=StrToInt(Edit1.Text);
max:=StrToInt(Edit2.Text);

arr[n-1,0]:=min;
arr[n-1,1]:=max;

end;

end.

[macomics]

везде вместо n-1 можно написать High(arr)