Matriz como Paramentro de una funcion

[ecfisa]

Hola.

Un ejemplo base:

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

function foo(p1:string; var mt : TMatStr4x5 ):string;
begin
  mt[1,1] := 'mt[1,1] = ' + p1;
  Result  := mt[1,1];
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  mt: TMatStr4x5;
  s : string;
begin
  s := foo('hola', mt);
  ShowMessage(s + #10 + mt[1,1]);
end;

Saludos

Pd.: Recuerda usar las etiquetas cuando incluyas código fuente.