Статические и динамические двумерные массивы

[zzdxw]

Всем привет.
Помогите перевести статические двумерные массивы в динамические двумерные в представленном коде. Когда я меняю их самостоятельно перестают работать либо функция открытия изображения, либо функция Sobel.
Заранее, спасибо!

const
  r_true=1;
  r_false=0;
  maxImageWidth = 2000;
  maxImageHeight = 2000;

type
  TRGB=record
    r,g,b:byte;
  end;

  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;

var
  Form1: TForm1;
  a:array[0..maxImageWidth,0..maxImageHeight] of byte;
  gx,gy,mr4:array[0..maxImageWidth,0..maxImageHeight] of double;
  BMPHeight,BMPWidth:integer;
  pixeldeleted:boolean;

implementation

{$R *.dfm}

procedure Sobel;
var
  i,j:integer;
begin
  for i:=1 to BMPWidth-1 do
    for j:=1 to BMPHeight-1 do
    begin
      gx[i,j]:=(a[i-1,j+1]+2*a[i,j+1]+a[i+1,j+1])-(a[i-1,j-1]+2*a[i,j-1]+a[i+1,j-1]);
      gy[i,j]:=(a[i+1,j-1]+2*a[i+1,j]+a[i+1,j+1])-(a[i-1,j-1]+2*a[i-1,j]+a[i-1,j+1]);
    end;
end;


procedure TForm1.N3Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
  begin
    image1.Picture.SaveToFile(SavePictureDialog1.FileName);
  end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    LoadInArray;
  end;
end;

procedure TForm1.N5Click(Sender: TObject);
var
  x,y:integer;
  val:integer;
  Ln:PARGB;
begin
  if (image1.Picture.Width>maxImageWidth) or (image1.Picture.Height>maxImageHeight) then
  begin
    ShowMessage('Изображение слишком большое!');
    exit;
  end;

  Sobel;

  for y:=1 to BMPHeight-1 do
  begin
    Ln:=form1.image1.Picture.Bitmap.scanline[y];
    for x:=1 to BMPWidth-1 do
    begin
      val:= round(sqrt(sqr(gx[x,y])+sqr(gy[x,y])));
      if val>255 then
        val:=255;
      Ln[x].b:=val;
      Ln[x].g:=val;
      Ln[x].r:=val;
    end;
  end;
  form1.Image1.Repaint;
end;

procedure TForm1.LoadInArray;
var
  Ln:PARGB;
  x,y:integer;
begin
  if image1.Picture.Bitmap.PixelFormat<>pf24bit then
    image1.Picture.Bitmap.PixelFormat:=pf24bit;

  BMPHeight:=image1.Picture.height;
  BMPWidth:=image1.Picture.width;
  for y := 0 to BMPHeight-1 do
  begin
    Ln := form1.image1.Picture.Bitmap.scanline[y];
    for x := 0 to BMPWidth-1 do
    begin
      a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3;
    end;
   end;

end;

[Stilet]

А как менял покажешь?

[zzdxw]

Например, массив a.
var
Form1: TForm1;
a:array of array of byte;
...

procedure TForm1.LoadInArray;
var
Ln:PARGB;
x,y:integer;
begin
if image1.Picture.Bitmap.PixelFormat<> pf24bit then
image1.Picture.Bitmap.PixelFormat:= pf24bit;

BMPHeight:=image1.Picture.height;
BMPWidth:=image1.Picture.width;
SetLength(a, BMPWidth, BMPHeight)
for y := 0 to BMPHeight-1 do
begin
Ln := form1.image1.Picture.Bitmap.scanlin e[y];
for x := 0 to BMPWidth-1 do
begin
a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3;
a:=nil;
end;
end;

Ругается на строчку с формулой gx[i,j]:=(a[i-1,j+1]+2*a[i,j+1]+a[i+1,j+1])-(a[i-1,j-1]+2*a[i,j-1]+a[i+1,j-1]);

[Stilet]

Мдя... Ладно уточню:
1) И где эта строчка?
2) И где текст ошибки?

[zzdxw]

Строчка в другой процедуре. В Sobel.
Ошибка после попытки применить фильтр Sobel.
Запускается программа. Открываю BMP (к слову, открывается секунд 15), пытаюсь применить данный фильтр, вылетает ошибка. Выделяет строчку с формулой. Для полноты картины вкладываю "исправленный" исходник.

[Stilet]

Делфи у меня нет при себе проверить не могу проект.
Лучше покажи текст ошибки.

[zzdxw]

В общем, по порядку. Приложение запускается. Когда открываю изображение и пытаюсь применить фильтр, приложение крашится.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, JPEG, Controls, Forms,
  Dialogs, ExtDlgs, StdCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    A1: TMenuItem;
    N5: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
    procedure LoadInArray;
  public
    { Public declarations }
  end;

const
  r_true=1;
  r_false=0;

type
  TRGB=record
    r,g,b:byte;
  end;

  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;

var
  Form1: TForm1;
  a:array of array of byte;
  gx:array of array of double;
  gy:array of array of double;
  BMPHeight,BMPWidth:integer;
  pixeldeleted:boolean;

implementation

{$R *.dfm}

procedure Sobel;
var
  i,j:integer;
    begin
    SetLength(gx, BMPWidth, BMPHeight);
    for i:=1 to BMPWidth-1 do
    for j:=1 to BMPHeight-1 do
    gx[i,j]:=(a[i-1,j+1]+2*a[i,j+1]+a[i+1,j+1])-(a[i-1,j-1]+2*a[i,j-1]+a[i+1,j-1]);
    SetLength(gy, BMPWidth, BMPHeight);
    for i:=1 to BMPWidth-1 do
    for j:=1 to BMPHeight-1 do
    gy[i,j]:=(a[i+1,j-1]+2*a[i+1,j]+a[i+1,j+1])-(a[i-1,j-1]+2*a[i-1,j]+a[i-1,j+1]);
      gx:=nil;
      gy:=nil;
    end;


procedure TForm1.N3Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
  begin
    image1.Picture.SaveToFile(SavePictureDialog1.FileName);
  end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    LoadInArray;
  end;
end;

procedure TForm1.N5Click(Sender: TObject);
var
  x,y:integer;
  val:integer;
  Ln:PARGB;
begin 

  Sobel;
   for y:=1 to BMPHeight-1 do
  begin
    Ln:=form1.image1.Picture.Bitmap.scanline[y];
    SetLength(gx, BMPWidth, BMPHeight);
    SetLength(gy, BMPWidth, BMPHeight);
    for x:=1 to BMPWidth-1 do
    begin
      val:= round(sqrt(sqr(gx[x,y])+sqr(gy[x,y])));
      if val>255 then
        val:=255;
      Ln[x].b:=val;
      Ln[x].g:=val;
      Ln[x].r:=val;
    end;
  end;
  form1.Image1.Repaint;
end;

procedure TForm1.LoadInArray;
var
  Ln:PARGB;
  x,y:integer;
begin
  if image1.Picture.Bitmap.PixelFormat<>pf24bit then
    image1.Picture.Bitmap.PixelFormat:=pf24bit;

  BMPHeight:=image1.Picture.height;
  BMPWidth:=image1.Picture.width;
   for y := 0 to BMPHeight-1 do
  begin
    Ln := form1.image1.Picture.Bitmap.scanline[y];
    for x := 0 to BMPWidth-1 do
    begin
    SetLength(a, BMPWidth, BMPHeight);
      a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3;
      a:=nil;
    end;
   end;

end;

[Stilet]

a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3;
a:=nil;

А эт что за фигня такая?
Зачем nil ставишь?

procedure TForm1.LoadInArray;
var
  Ln:PARGB;
  x,y:integer;
begin
  if image1.Picture.Bitmap.PixelFormat<>pf24bit then
    image1.Picture.Bitmap.PixelFormat:=pf24bit;

  BMPHeight:=image1.Picture.height;
  BMPWidth:=image1.Picture.width;

    SetLength(a, BMPWidth, BMPHeight);

  for y := 0 to BMPHeight-1 do
  begin
    Ln := form1.image1.Picture.Bitmap.scanline[y];
    for x := 0 to BMPWidth-1 do
    begin
      a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3;
    end;
   end;

end;

[zzdxw]

Ну я прочел, что nil нужно для освобождения памяти. В принципе, не обязательно, наверное.
a[x,y]:=(Ln[x].r+Ln[x].g+Ln[x].b) div 3 - без этой формулы открытое изображение просто закрашивается в черный цвет.

BMPWidth:=image1.Picture.width;

SetLength(a, BMPWidth, BMPHeight);

for y := 0 to BMPHeight-1 do

Поставил так, плюс убрал nil везде. Итог, все заработало. Правда, теперь фильтр применяется не на все BMP-шки... Крашится на той же строчке.

[Stilet]

Ну я прочел, что nil нужно для освобождения памяти. В принципе, не обязательно, наверное.

Это даже не просто не обязательно а чрезвычайно опасно
nil ниразу не освобождает память. SetLength(...,0) - вот что нужно вызывать для освобождения памяти.
nil используется для освобождения памяти в СОМ модели, при работе с интерфейсами. Не знаю где ты такую чепуху прочел, но это скорее бред или ты не так понял.

фильтр применяется не на все BMP-шки

Видимо твоя формула дает выход за пределы массива.
Попробуй поставить

    for i:=1 to BMPWidth-2 do
    for j:=1 to BMPHeight-2 do