Hola
Código Delphi
[-]
type TReg = record
X,
Y: string;
end;
type TRegArray = array of TReg;
...
procedure TForm1.Button1Click(Sender: TObject);
var Reg: TregArray;
begin
SetLength(Reg, 0); MiProcedure(Reg);
ShowMessage(Reg[0].x+', '+Reg[1].x); end;
procedure TForm1.MiProcedure(var Reg: TRegArray);
begin
SetLength(Reg, 2); Reg[0].x := '0';
Reg[1].x := '1';
end;
asi funciona. Lei en algun sitio que delphi tiene ciertos inconvenientes al pasar arrays dinamicos como parametros. Quizas deba ser por eso que te fallase tu codigo (en principio no le veia fallo). saludos.