// diviser la chaîne en fonction de la chaîne, ce qui est équivalent à la fonction divisée dans VB
fonction splitString (constance const, ch: string): tStringList;
var
temp: String;
I: entier;
Commencer
Résultat: = tStringList.Create;
// S'il s'agit d'une chaîne vide, revenez à une liste vide
Si source = ''
puis sortir;
temp: = source;
i: = pos (ch, source);
Pendant que je <> 0 fait
Commencer
Résultat.add (copie (temp, 0, i-1));
Supprimer (temp, 1, i);
i: = pos (ch, temp);
fin;
Résultat.add (temp);
fin;
www.sinoprise.com