O processamento de strings é frequentemente usado em muitos lugares. Para uma string, isso pode ser feito usando o método a seguir.
digite userarray = array de string;
função tform1.split(s:string;ponto:char):userarray;
var
str:userarray;
i,j:inteiro;
começar
eu:=1;
j:=0;
SetComprimento(str, 255);
enquanto Pos(ponto, s) > 0 faça
começar
str[j]:=copiar(s,i,pos(ponto,s)-i);
i:=pos(ponto,s)+1;
s[i-1] := chr(ord(ponto)+1);
j:=j+1;
fim;
str[j]:=copiar(s,i,strlen(pchar(s))-i+1);
resultado:=str;
fim;
Você pode modificá-lo para obter os resultados necessários.