Darse cuenta del efecto
Solo se asigna un punto y coma después de cada elemento.
Pasar; ABC; 123; JKL;
Pase en abc ;;; 123 ;; jkl;
Pase en ABC ;;; 123 ;; jkl return ABC; 123; jkl;
Funciones clave
Eliminar {Descripción de la función: Eliminar la cadena especificada en la cadena. Esta función tiene tres parámetros. El primer parámetro es la cadena a procesar, el segundo parámetro es dónde comenzar la eliminación, y el tercer parámetro es el número de caracteres que se eliminarán. } LeftStr (Unidad: Strutils) {Descripción de la función: Devuelve el nuevo carácter (cadena) especificado en el lado izquierdo de la cadena. Esta función tiene dos parámetros. El primer parámetro es la cadena completa, y el segundo parámetro es el número especificado. } Rightstr (Unidad: Strutils) {Función Descripción: Devuelve el nuevo carácter (cadena) especificado a la derecha de la cadena. Esta función tiene dos parámetros. El primer parámetro es la cadena completa, y el segundo parámetro es el número especificado. } Pos {Descripción de la función: Encuentre la ubicación del carácter (cadena). Esta función tiene dos parámetros. El primer parámetro es el carácter (cadena) a buscar, y el segundo parámetro es el carácter (cadena) a buscar. } Código: // usa requerido
Unidad de strutils Función Dealstr (S: String): String; Var S2, S3: String; Var S1: Widestrng; = ''; ('', S1), 1); ';'; S1: = Rightstr (S1, (longitud (S1) -pos (';', S1)); Izquierda si (s3 = ';') entonces // si la cadena de la izquierda solo tiene un semicolon, deseche el final de la otra. Rightstr (S1, (longitud (S1) -pos (';', S1));