Ошибка "exeption class EAcessViolation with message..." (Deplhi)

[Ванчезз]

Вечер добрый! При решении задачи "Дана вещественная матрица размером 5х4. Упорядочить ее строки по неубыванию их наибольших элементов" столкнулся с проблемой. При попытке записать максимальные числа в каждой из 5 строк в массив MaxInCol выходит следующая ошибка: "Project Project1.exe raised exception class EAcessViolation with message 'Access violation at address 0045C4AB in module 'Project1.exe'. Write of adress 00000004'. Process stopped.". Указывает на 50 строчку кода. Помогите разобраться, пожалуйста.

unit Strings;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  max: integer;
  x: array [1..4, 1..5] of integer;
  MaxInCol: array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, k: byte;
begin
for i := 1 to 4 do                      // столбец
  for j := 1 to 5 do                    // строка
  begin
    if StringGrid1.Cells[i,j] <> '' then
    x[i,j] := StrToInt(StringGrid1.Cells[i,j]);
  end;
for j := 1 to 5 do
begin
  max := 0;
  for i := 1 to 4 do
    begin
      if StringGrid1.Cells[i,j] <> '' then
      if StrToInt(StringGrid1.Cells[i,j]) > max then
      max := StrToInt(StringGrid1.Cells[i,j]);
    end;
    MaxInCol[j] := max;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
  var
    i: byte;
begin
for i := 1 to 4 do
  StringGrid1.Cells[i,0] := IntToStr(i);
for i := 1 to 5 do
  StringGrid1.Cells[0,i] := IntToStr(i);
end;

end.

[Аватар]

А где под MaxInCol память выделена?

[Ванчезз]

Сообщение от Аватар

А где под MaxInCol память выделена?

В разделе объявления переменных var

var
  Form1: TForm1;
  max: integer;
  x: array [1..4, 1..5] of integer;
  MaxInCol: array of integer;

[Аватар]

У тебя там динамический массив. Для него кроме описания нужно еще память и выделить, динамически

[p51x]

Это обхявление. Память для динамического массива выделяется заданием размера.

[Ванчезз]

Сообщение от Аватар

У тебя там динамический массив. Для него кроме описания нужно еще память и выделить, динамически

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

Это обхявление. Память для динамического массива выделяется заданием размера.

Действительно, помогло. Благодарю за оперативность!

[beegl]

все верно, .. или почему нет результата в StringGrid1?

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j ,k: byte;
begin
for i := 1 to 4 do                      
  for j := 1 to 5 do                    
  begin
    if StringGrid1.Cells[i,j] <> '' then
    x[i,j] := StrToInt(StringGrid1.Cells[i,j]);
  end;
SetLength(MaxInCol, j); // верно выделил??
for j := 1 to 5 do
begin
  max := 0;
  for i := 1 to 4 do
    begin
      if StringGrid1.Cells[i,j] <> '' then
      if StrToInt(StringGrid1.Cells[i,j]) > max then
      max := StrToInt(StringGrid1.Cells[i,j]);
    end;
    MaxInCol[j] := max;
//    FreeMem(MaxInCol, j); // гг))
end;

[Аватар]

Выделил верно, красненьким. Только чему там j будет равно в этот момент?

[beegl]

Сообщение от Аватар

чему там j будет равно в этот момент?

var
  Form1: TForm1;
  max: integer;
  x: array [1..4, 1..5] of integer;
  MaxInCol: array of integer;

если выделяю max, .. ошибка. .. ( SetLength(MaxInCol, max); // выделил для max)

[evg_m]

и будущая "ошибка"

Дана вещественная матрица размером 5х4

x: array [1..4, 1..5] of integer;

:=StrToInt(StringGrid1.Cells[i,j])

и еще (почему неправильно считает)

  max := 0;

а в строке могут случиться и все до одного отрицательными (<0)
-1.4 -7.06 -5 -11.5 .... и что здесь максимум ?