O exemplo neste artigo descreve o uso da função de separação de strings do Delphi. Compartilhe com todos para sua referência. O método de implementação específico é o seguinte:
Este exemplo pode separar a string s em várias strings de acordo com a representação do string Separator e armazená-las na lista de strings rs.
Copie o código da seguinte forma: procedimento SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: string;
idx: Inteiro;
ASubStr: string;
começar
AStr := Corte(s);
enquanto Pos(Separador, AStr) > 0 faça
começar
idx := Pos(Separador, AStr);
ASubStr := Copiar(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copiar(AStr, idx + 1, Comprimento(AStr));
fim;
if AStr+'a' <> 'a' then rs.Add(AStr); //Se houver strings restantes, armazene-as na lista de strings
fim;
Espero que este artigo seja útil para a programação Delphi de todos.