Cuestión : Datos del cargamento de Delphi en el Arras dinámico dos de un solo procedimiento

Hago llamar a fin de decir, Procedure1, declarando los dos órdenes dtynamic siguientes:
Var SourceArray, DestArray: arsenal de secuencia;

From Procedure1 que quiero llamar Procedure2 o Function2 donde quiero cargar datos en SourceArray o DestArray, pasando el nombre del arsenal al procedimiento 2, por lo tanto controlando con el paso del nombre de arsenal, en el cual el procedimiento 2 del arsenal es cargar los datos.  ¿Cómo se hace esto?
class= del

Respuesta : Datos del cargamento de Delphi en el Arras dinámico dos de un solo procedimiento

la palabra de código que usted está buscando es “VAR”

- para pasar datos a un procedimiento que no tiene que alterar esa variable:
tipo
  TMyArray = arsenal de secuencia;
procedimiento Test1 (arr: TMyArray);
comenzar
  ShowMessage (formato (“elementos de arsenal: %d”, [colmo (arr)]));
extremo;

para pasar datos a un procedimiento que tiene que alterar (o completar la variable):
tipo
  TMyArray = arsenal de secuencia;
procedimiento Test2 (arr del var: TMyArray);
var I: Número entero;
comenzar
  SetLength (arr, 10);
  para I: = bajo (arr) al colmo (arr) hacer
    arr [I]: = IntToStr (I);
extremo;

usted puede también alterar el número de parámetros
tipo
  TMyArray = arsenal de secuencia;
procedimiento Test3 (var arr1, arr2: TMyArray);
var I: Número entero;
comenzar
  SetLength (arr1, 10);
  para I: = bajo (arr1) al colmo (arr1) hacer
    arr1 [I]: = IntToStr (I);
  SetLength (arr2, 20);
  para I: = bajo (arr2) al colmo (arr2) hacer
    arr2 [I]: = IntToStr (I);
extremo;

o escribir Test3 como esto:
mecanografiar
  TMyArray = arsenal de secuencia;
procedimiento Test3 (var arr1, arr2: TMyArray);
var I: Número entero;
comenzar
  Test2 (arr1);
  SetLength (arr2, 20);
  para I: = bajo (arr2) al colmo (arr2) hacer
    arr2 [I]: = IntToStr (I);
extremo;