Матрица как входящий параметр

[inmyacid]

Добрый день господа. Столкнулся с таким вопросом и не знаю как лучше реализовать.
Суть такова. Есть матрица я пишу некую процедуру которая выполняет некоторые действия с ее ячейками. Нужно сделать чтобы в качестве входящего параметра в процедуру была матрица.
чтото типа
procedure run(входящая матрица);
Как будет выглядеть обьявление процедуры где в качестве входящего параметра будет матрица?
Вероятно поступить предложение сделать это посредством указателей
procedure run(matrixointer);
но поскольку в делфи я работаю с указателями впервые было бы неплохо увидеть пример использования указателя matrix(в моем случае) в процедуре.
спасибо

[Serge_Bliznykov]

лучше всего, через свой тип данных:

type
  MyArr = array[1..10000] of integer; {тип может быть и динамическим массивом, разумеется}

...
procedure ReplaceMainCross(var M : MyArr);

либо можно использовать т.н. "открытые массивы" (не путать с динамическими!!!!)

procedure ReplaceMainCross(var M : array of integer);

через указатели тоже можно, но зачем чесать правое ухо пяткой левой ноги, если создатели языка/компилятора обеспечивают удобные, надёжные и мощные механизмы внутрипрограммного взаимодействия!)

[inmyacid]

спасибо. я с чего-то решил будто это можно реализовать в прямом смысле вопроса

[3D Hunter]

Все сказано верно, только будьте внимательны в следующем: всегда передавайте в параметры процедуры массивы большой размерности как var или const, или же out (если требуется только изменить массив в методе). Без указания ссылочных типов в параметрах метода данные копируются в его стек, а он варьируется от 16 кб до 1 мб по умолчанию. При переполнении стека получим AV. Иными словами, надо делать так:

procedure  DoArray(var Arr:TArr);

или так:

procedure  DoArray(const Arr:TArr);

а такого объявления лучше избегать:

procedure  DoArray(Arr:TArr);

Чтобы понять суть, попробуйте в новом приложении с пустой формой заменить весь код на:

unit Unit1;

interface

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

type
  TArr=array[0..1000000] of Integer;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  gArr:TArr;

implementation

{$R *.dfm}

procedure  DoArray(Arr:TArr);
var
  i:Integer;
begin
  for i:=0 to High(Arr) do Arr[i]:=i;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoArray(gArr);
end;

end.

При запуске форма не появится, а приложение завалится.
P.S. Serge_Bliznykov, ответьте на вопрос: чем отличаются открытые массивы от динамических? Для себя интересно. Спасибо.

[Stilet]

Если мне не изменяет память - понятие открытого массив применяется для описания параметров функции. Это еще с паскаля пошло.

[inmyacid]

Сообщение от 3D Hunter

Без указания ссылочных типов в параметрах метода данные копируются в его стек, а он варьируется от 16 кб до 1 мб по умолчанию. При переполнении стека получим AV.

А вот это полезная информация. тоже спасибо

[Пепел Феникса]

for i:=0 to High(Arr) do Arr[i]:=i;

лучше начинать с Low уж тогда.