El ejemplo de este artículo describe el uso de la función de separación de cadenas de Delphi. Compártelo con todos para tu referencia. El método de implementación específico es el siguiente:
Este ejemplo puede separar la cadena s en varias cadenas de acuerdo con la representación del Separador de cadenas y almacenarlas en la lista de cadenas rs. El código específico es el siguiente:
Copie el código de la siguiente manera: procedimiento SepareTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: cadena;
idx: número entero;
ASubStr: cadena;
comenzar
AStr := Recorte(s);
mientras Pos(Separador, AStr) > 0 hacer
comenzar
idx := Pos(Separador, AStr);
ASubStr := Copiar(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copiar(AStr, idx + 1, Longitud(AStr));
fin;
si AStr+'a' <> 'a' entonces rs.Add(AStr); //Si quedan cadenas, guárdelas en la lista de cadenas
fin;
Espero que este artículo sea útil para la programación Delphi de todos.