Ancora più breve:
usi
Generics.Defaults,
Generics.Collections;
procedura TForm1.Button1Click (mittente: TObject);
varietà
StrArray: allineamento di stringa;
cominciare
SetLength (StrArray, 3);
StrArray [0]: = “streptococco 3„;
StrArray [1]: = “streptococco 2„;
StrArray [2]: = “streptococco 1„;
TArray.Sort (StrArray); estremità <---------------->di //;