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

[Катя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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  arr: array of array of Integer;
  n:Integer = 0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=n+1;
SetLength(arr,n,2);
arr[n,0]:= StrToInt(Edit1.Text);
arr[n,1]:= StrToInt(Edit2.Text);

end;
procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
Memo1.Clear;
for i:=0 to Length(arr) do
begin
  Memo1.Lines.Add('min='+IntToStr(arr[i][0])+', max='+IntToStr(arr[i][1]));
end;
end;

end.

При попытке добавить значения (TForm1.Button1Click) через поля Edit1 и Edit2. Выводит ошибку.

Access violation at address 004518B3 in module 'Project1.exe'. Write at address 00000012.

Как исправить?

[ForenLi]

Динамические массивы нумеруются с 0

[macomics]

или

array of array 0 .. 1 of Integer;

или

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

Одной командой - нельзя.

[ForenLi]

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

Одной командой - нельзя.

Можно

[macomics]

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

Можно

А она разве не обнулит старые значения в массиве? У Delphi 7 такая проблема была вроде.

[Катя93]

array of array 0 .. 1 of Integer;

В этом случае туже ошибку выводит, что и у меня. Код:

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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  arr:array of array [0 .. 1] of Integer;

  n:Integer = 0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=n+1;

SetLength(arr, n);


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

end;
procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
Memo1.Clear;
for i:=0 to Length(arr) do
begin
  Memo1.Lines.Add('min='+IntToStr(arr[i][0])+', max='+IntToStr(arr[i][1]));
end;
end;

end.

Если записать вот так:

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

То программа вообще вылетает при попытке заполнить массив:

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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

  n:Integer = 0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=n+1;

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


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

end;
procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
Memo1.Clear;
for i:=0 to Length(arr) do
begin
  Memo1.Lines.Add('min='+IntToStr(arr[i][0])+', max='+IntToStr(arr[i][1]));
end;
end;

end.

[ForenLi]

Катя93

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

Динамические массивы нумеруются с 0

[Катя93]

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

У второй части массива стоит "0"

[BDA]

Если в массиве всего n элементов, то они имеют номера от 0 до n-1.

[ForenLi]

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

У второй части массива стоит

А у первой?