Question : Delphes est là une manière simple à Concat deux rangées dynamiques dedans à une rangée ?

J'ai deux Arrays
AVar Array1, Array2 : Rangée de corde ;

Is là une manière au concatinate le contenu de tous les deux dans une rangée simple ? class= de

Réponse : Delphes est là une manière simple à Concat deux rangées dynamiques dedans à une rangée ?

utilisation et essai :

procédé TForm1.Button1Click (expéditeur : TObject) ;
variété
  StrArray1, StrArray2, ResArray : TStringArray ;
commencer
  SetLength (StrArray1, 3) ;
  StrArray1 [0] : = « streptocoque 13 » ;
  StrArray1 [1] : = « streptocoque 12 » ;
  StrArray1 [2] : = « streptocoque 11 » ;

  SetLength (StrArray2, 3) ;
  StrArray2 [0] : = « streptocoque 23 » ;
  StrArray2 [1] : = « streptocoque 22 » ;
  StrArray2 [2] : = « streptocoque 21 » ;

  ResArray : = ConcatArrays (StrArray1, StrArray2) ;

  ShowMessage (ResArray [3]) ;
extrémité ;