usando e provare:
procedura TForm1.Button1Click (mittente: TObject);
varietà
StrArray1, StrArray2, ResArray: TStringArray;
cominciare
SetLength (StrArray1, 3);
StrArray1 [0]: = “streptococco 13„;
StrArray1 [1]: = “streptococco 12„;
StrArray1 [2]: = “streptococco 11„;
SetLength (StrArray2, 3);
StrArray2 [0]: = “streptococco 23„;
StrArray2 [1]: = “streptococco 22„;
StrArray2 [2]: = “streptococco 21„;
ResArray: = ConcatArrays (StrArray1, StrArray2);
ShowMessage (ResArray [3]);
estremità;