Question : Données de chargement de Delphes dans l'Arras deux dynamique d'un procédé simple

Je fais appeler de peur que dire, Procedure1, déclarant les deux rangées dtynamic suivantes :
Var SourceArray, DestArray : rangée de corde ;

From Procedure1 que je veux appeler Procedure2 ou Function2 où je veux charger des données dans SourceArray ou DestArray, en passant le nom de la rangée au procédé 2, par conséquent commandant par le dépassement du nom de rangée, dans lequel le procédé 2 de rangée est de charger les données.  Comment est-ce que ceci est allé ?
class= de

Réponse : Données de chargement de Delphes dans l'Arras deux dynamique d'un procédé simple

le mot de code que vous recherchez est « variété »

- pour passer des données à un procédé qui ne doit pas changer cette variable :
type
  TMyArray = rangée de corde ;
procédé Test1 (arr : TMyArray) ;
commencer
  ShowMessage (format (« éléments de tableau : %d », [haute (arr)]));
extrémité ;

pour passer des données à un procédé qui doit changer (ou compléter la variable) :
type
  TMyArray = rangée de corde ;
procédé Test2 (arr de variété : TMyArray) ;
variété I : Nombre entier ;
commencer
  SetLength (arr, 10) ;
  pour I : = bas (arr) à la haute (arr) faire
    arr [I] : = IntToStr (I) ;
extrémité ;

vous pouvez également changer le nombre de paramètres
type
  TMyArray = rangée de corde ;
procédé Test3 (variété arr1, arr2 : TMyArray) ;
variété I : Nombre entier ;
commencer
  SetLength (arr1, 10) ;
  pour I : = bas (arr1) à la haute (arr1) faire
    arr1 [I] : = IntToStr (I) ;
  SetLength (arr2, 20) ;
  pour I : = bas (arr2) à la haute (arr2) faire
    arr2 [I] : = IntToStr (I) ;
extrémité ;

ou écrire Test3 comme ceci :
dactylographier
  TMyArray = rangée de corde ;
procédé Test3 (variété arr1, arr2 : TMyArray) ;
variété I : Nombre entier ;
commencer
  Test2 (arr1) ;
  SetLength (arr2, 20) ;
  pour I : = bas (arr2) à la haute (arr2) faire
    arr2 [I] : = IntToStr (I) ;
extrémité ;