Frage : Delphi ist dort eine einfache Weise zu Concat zwei dynamische Reihen innen zu einer Reihe?

Ich habe zwei Arrays
AVar Array1, Array2: Reihe Schnur;

Is dort eine Weise zum concatinate der Inhalt von beiden in eine einzelne Reihe?

Antwort : Delphi ist dort eine einfache Weise zu Concat zwei dynamische Reihen innen zu einer Reihe?

Anwendung und Prüfung:

Verfahren TForm1.Button1Click (Absender: TObject);
var
  StrArray1, StrArray2, ResArray: TStringArray;
anfangen
  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]);
Ende;