Perceba o efeito
Apenas um semicolon é atribuído após cada item.
Passe em; ABC; 123; JKL;
Passa em abc ;; 123 ;; jkl;
Passe em ABC ;; 123 ;; JKL Return ABC; 123; JKL;
Funções -chave
Exclua {Função Descrição: Exclua a sequência especificada na sequência. Esta função possui três parâmetros. O primeiro parâmetro é a sequência a ser processada, o segundo parâmetro é onde iniciar a exclusão e o terceiro parâmetro é o número de caracteres a serem excluídos. } LeftStr (Unidade: Strutils) {Função Descrição: Retorna o novo caractere (String) especificado no lado esquerdo da sequência. Esta função possui dois parâmetros. O primeiro parâmetro é a sequência completa e o segundo parâmetro é o número especificado. } RightStr (Unidade: Strutils) {Função Descrição: Retorna o novo caractere (String) especificado à direita da string. Esta função possui dois parâmetros. O primeiro parâmetro é a sequência completa e o segundo parâmetro é o número especificado. } Pos {função Descrição: Encontre a localização do caractere (string). Esta função possui dois parâmetros. O primeiro parâmetro é o caractere (string) a ser pesquisado e o segundo parâmetro é o caractere (string) a ser pesquisado. } Código: // usa necessário
Unidade de Strutils Função de acordo com a função (s: string): string; var s2, s3: string; var s1: widestrng; = ''; ('', S1), 1); ';'; S1: = RightStr (S1, (comprimento (S1) -Pos (';', S1)); Esquerda se (s3 = ';') então // se a string à esquerda tiver apenas um semicolon, descarte o final do início mais s2: = s2+s3; RightStr (S1, (comprimento (S1) -Pos (';', S1));