Matriz como Paramentro de una funcion

[cloayza]

Te sugiero este código:

Código Delphi [-]
type
  TMatrizString=array[1..4,1..5] Of string;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MatrizCeros(var m:TMatrizString);
    procedure MatrizPrint(var m:TMatrizString);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MatrizCeros(var m:TMatrizString);
var
   i:Integer;
  j: Integer;
begin
     for i := 1 to 4 do
        for j := 1 to 5 do
            m[i,j]:='0';
end;

procedure TForm1.MatrizPrint(var m:TMatrizString);
var
   i:Integer;
  j: Integer;
begin
     Memo1.Lines.Clear;
     for i := 1 to 4 do
        for j := 1 to 5 do
            Memo1.Lines.Add(Format('m[%d,%d]=%s',[i,j, m[i,j]]));
end;


procedure TForm1.Button1Click(Sender: TObject);
var
   m:TMatrizString;
begin
     MatrizCeros(m);
     MatrizPrint(m);
end;

Saludos cordiales