El procesamiento de cadenas se utiliza a menudo en muchos lugares. Para una cadena, esto se puede hacer usando el siguiente método.
escriba userarray=matriz de cadena;
función tform1.split(s:string;dot:char):userarray;
var
cadena: matriz de usuarios;
i,j:entero;
comenzar
yo:=1;
j:=0;
EstablecerLongitud(cadena, 255);
mientras Pos(punto, s) > 0 hacer
comenzar
str[j]:=copiar(s,i,pos(punto,s)-i);
i:=pos(punto,s)+1;
s[i-1] := chr(ord(punto)+1);
j:=j+1;
fin;
str[j]:=copiar(s,i,strlen(pchar(s))-i+1);
resultado:=cadena;
fin;
Puedes modificarlo para lograr los resultados que necesitas.