Cuestión : ¿Delphi está allí una manera simple a Concat dos órdenes dinámicos adentro a un arsenal?

Tengo dos Arrays
AVar Array1, Array2: Arsenal de secuencia; ¿

Is allí una manera al concatinate el contenido de ambos en un solo arsenal? class= del

Respuesta : ¿Delphi está allí una manera simple a Concat dos órdenes dinámicos adentro a un arsenal?

el usar y prueba:

procedimiento TForm1.Button1Click (remitente: TObject);
var
  StrArray1, StrArray2, ResArray: TStringArray;
comenzar
  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]);
extremo;