L'exemple de cet article décrit l'utilisation de la fonction de séparation de chaînes Delphi. Partagez-le avec tout le monde pour votre référence. La méthode spécifique de mise en œuvre est la suivante :
Cet exemple peut séparer la chaîne s en plusieurs chaînes selon la représentation du séparateur de chaîne et les stocker dans la liste de chaînes rs. Le code spécifique est le suivant :
Copiez le code comme suit : procédure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr : chaîne ;
idx : entier ;
ASubStr : chaîne ;
commencer
AStr := Garniture(s);
tandis que Pos(Separator, AStr) > 0 fais
commencer
idx := Pos(Séparateur, AStr);
ASubStr := Copier(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copier(AStr, idx + 1, Longueur(AStr));
fin;
if AStr+'a' <> 'a' then rs.Add(AStr); //S'il reste des chaînes, stockez-les dans la liste de chaînes
fin;
J'espère que cet article sera utile à la programmation Delphi de chacun.