Вопрос : Делфи там просто дорога к Concat 2 динамических блока внутри до один блок?

Я имею 2 Arrays
AVar Array1, Array2: Блок шнура;

Is там дорога к concatinate содержание обоих в одиночный блок? class=

Ответ : Делфи там просто дорога к Concat 2 динамических блока внутри до один блок?

использование и испытывать:

процедура TForm1.Button1Click (прислужник: TObject);
var
  StrArray1, StrArray2, ResArray: TStringArray;
начните
  SetLength (StrArray1, 3);
  StrArray1 [0]: = «Str 13»;
  StrArray1 [1]: = «Str 12»;
  StrArray1 [2]: = «Str 11»;

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

  ResArray: = ConcatArrays (StrArray1, StrArray2);

  ShowMessage (ResArray [3]);
конец;