Probleas con los arreglos

[cloayza]

Intente recrear la idea con algunas correcciones...

Código Delphi [-]
Type
  TComp = class
     nombre : string;
  end;

  TAComp=Array of TComp;
...

{Arreglo y nvoArreglo son del mismo tipo TAComp...}

procedure TForm4.Editar(out arreglo: TAComp);
var
  nvoArreglo : TAComp;
  i:integer;
begin
     {Solo es de una dimencion el vector...}
     SetLength(nvoArreglo,1);
    
    {Se crea la clase TComp...}
     nvoArreglo[0]:=TComp.Create;

    {Asigna valor a .Nombre}
     nvoArreglo[0].Nombre := 'Algo';

    
{//Para un vector de mas dimensiones...
     SetLength(nvoArreglo,10);
     For i:=Low(nvoArreglo) To High(nvoArreglo) Do
     begin
            nvoArreglo[i]:=TComp.Create;
            nvoArreglo[i].Nombre := 'Algo...'+Inttostr(i);
     End;
}

     {Al ser del mismo tipo TAComp se puede hacer la asignacion...}
     arreglo := nvoArreglo;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
   Arreglo:TAComp;
begin
     Editar(Arreglo);
     ShowMessage(Arreglo[0].nombre);
end;

Saludos...