Encore plus court :
utilisations
Generics.Defaults,
Generics.Collections ;
procédé TForm1.Button1Click (expéditeur : TObject) ;
variété
StrArray : rangée de corde ;
commencer
SetLength (StrArray, 3) ;
StrArray [0] : = « streptocoque 3 » ;
StrArray [1] : = « streptocoque 2 » ;
StrArray [2] : = « streptocoque 1 » ;
TArray.Sort (StrArray) ; extrémité <---------------->de // ;