Réaliser l'effet
Un seul point-virgule est attribué après chaque élément.
Passer; ABC; 123; JKL; Retour ABC; 123; JKL;
Passer dans ABC ;; 123 ;; JKL; Renvoie ABC; 123; JKL;
Passer dans ABC ;;; 123 ;; JKL Return ABC; 123; JKL;
Fonctions clés
Supprimer {Fonction Description: Supprimer la chaîne spécifiée dans la chaîne. Cette fonction a trois paramètres. Le premier paramètre est la chaîne à traiter, le deuxième paramètre est de commencer la suppression et le troisième paramètre est le nombre de caractères à supprimer. } Lelestr (unité: strutils) {Fonction Description: Renvoie le nouveau caractère (chaîne) spécifié sur le côté gauche de la chaîne. Cette fonction a deux paramètres. Le premier paramètre est la chaîne complète et le deuxième paramètre est le numéro spécifié. } Rightstr (Unit: Strutils) {Fonction Description: Renvoie le nouveau caractère (chaîne) spécifié à droite de la chaîne. Cette fonction a deux paramètres. Le premier paramètre est la chaîne complète et le deuxième paramètre est le numéro spécifié. } Pos {function Description: Trouvez l'emplacement du caractère (chaîne). Cette fonction a deux paramètres. Le premier paramètre est le caractère (chaîne) à rechercher, et le deuxième paramètre est le caractère (chaîne) à rechercher. } Code: // utilise requise
Unité de strutils Fonction Dealstr (S: String): String; var S2, S3: String; var S1: widestrng; = ''; S3: = ''; S1: = S; ('', s1), 1); ';'; fin; S1: = Rightstr (S1, (S1) -pos (';', S1)); gauche if (s3 = ';') alors // Si la chaîne à gauche a seulement un demi-colon, défaussez la fin else commence S2: = S2 + S3; Rightstr (S1, (S1) -POS (';', S1));