Вопрос : Делфи нагружая данные в динамический Arras 2 от одиночной процедуры

Я имею быть вызванным чтобы скажите, Procedure1, объявляя следующий 2 dtynamic блока:
Var SourceArray, DestArray: блок шнура;

From Procedure1, котор я хочу вызвать Procedure2 или Function2 где я хочу нагрузить данные в SourceArray или DestArray, путем проходить имя блока к процедуре 2, следовательно контролирующ через проходить имени блока, в которое процедура по 2 блока должна нагрузить данные.  Как это сделано?
class=

Ответ : Делфи нагружая данные в динамический Arras 2 от одиночной процедуры

кодовым словом, котор вы ищете будет «VAR»

- передать данные к процедуре не должна изменить ту перемеююый:
тип
  TMyArray = блок шнура;
процедура Test1 (arr: TMyArray);
начните
  ShowMessage (форма («элементы блока: %d», [максимум (arr)]));
конец;

передать данные к процедуре должна изменить (или заполнить внутри перемеююый):
тип
  TMyArray = блок шнура;
процедура Test2 (arr var: TMyArray);
var iий: Интежер;
начните
  SetLength (arr, 10);
  для I: = низко (arr) к максимуму (arr) сделайте
    arr [I]: = IntToStr (I);
конец;

вы можете также изменить число параметров
тип
  TMyArray = блок шнура;
процедура Test3 (var arr1, arr2: TMyArray);
var iий: Интежер;
начните
  SetLength (arr1, 10);
  для I: = низко (arr1) к максимуму (arr1) сделайте
    arr1 [I]: = IntToStr (I);
  SetLength (arr2, 20);
  для I: = низко (arr2) к максимуму (arr2) сделайте
    arr2 [I]: = IntToStr (I);
конец;

или напишите Test3 как это:
напечатайте на машинке
  TMyArray = блок шнура;
процедура Test3 (var arr1, arr2: TMyArray);
var iий: Интежер;
начните
  Test2 (arr1);
  SetLength (arr2, 20);
  для I: = низко (arr2) к максимуму (arr2) сделайте
    arr2 [I]: = IntToStr (I);
конец;