Something

A_1 := A_1.Trim; // Enleve les espaces des deux côtés
if (StringType.StrCmp(A_1.Substring((A_1.Length - 1), 1), ' ', false) <> 0) then A_1 := string.Concat(A_1, ' '); // AJoute un espace à la fin de la chaine
array := A_1.Split(New(array[1] of Char, ( ( ' ' ) ))); // Coupe la chaine en bout par rapport aux espaces
num4 := (Information.UBound(array, 1) - 1); // Nombre de bouts de chaine mis dans le tableau ???