Vraag : Delphi is daar een eenvoudige manier aan Concat twee Dynamische Series binnen aan één Serie?

Ik heb twee Arrays
AVar Array1, Array2: Serie van Koord;

Is daar een manier aan concatinate de inhoud van allebei in één enkele serie?

Antwoord : Delphi is daar een eenvoudige manier aan Concat twee Dynamische Series binnen aan één Serie?

het gebruiken en het testen:

procedure TForm1.Button1Click (Afzender: TObject);
var
  StrArray1, StrArray2, ResArray: TStringArray;
begin
  SetLength (StrArray1, 3);
  StrArray1 [0]: = „Streptokok 13“;
  StrArray1 [1]: = „Streptokok 12“;
  StrArray1 [2]: = „Streptokok 11“;

  SetLength (StrArray2, 3);
  StrArray2 [0]: = „Streptokok 23“;
  StrArray2 [1]: = „Streptokok 22“;
  StrArray2 [2]: = „Streptokok 21“;

  ResArray: = ConcatArrays (StrArray1, StrArray2);

  ShowMessage (ResArray [3]);
eind;