Delphi - Pasar Matriz

Hola a Todos,

Lo que necesito saber es como pasar una matriz a una funcion en Delphi 5, ejemplo

Private
Function Mi_Funcion(Matriz of String): Integer;
...

procedure TProg.BitBtn2Click(Sender: TObject);
Var Matriz: Array[0..100,0..3] of String;
Begin
...
Mi_Funcion(Matriz)
...
End;

Function TProg.Mi_Funcion(Matriz of String): Integer;
Begin
....
End;

De esta forma me resulta bien si la matriz es de una dimension, pero como es de dos dimensiones al compilar me da un error que dice: Incompatible Types.

Desde ya gracias por la ayuda.

Lo mejor que puedes hacer es declarar un nuevo tipo con la matriz que quieras, ya sea uni o multidimensional. Se haria mas o menos asi:

type MiMatriz: array[1..n] of UnTipo;

Despues, a las funciones, en lugar de pasarles una matriz propiamente dicha, les pasas el nuevo tipo que has creado, mas o menos asi:

procedure miFuncion(a: MiMatriz);

procedure TProg.ButtonClick(Sender: TObject)
var m: MiMatriz;
begin
...
MiFuncion(M);
...
end;

Espero que te sirva. Un saludo.

Diego -> chairman