Обработка строк часто используется во многих местах. Для строки это можно сделать с помощью следующего метода.
введите userarray=массив строк;
функция tform1.split(s:string;dot:char):userarray;
вар
ул: пользовательский массив;
я, j: целое число;
начинать
я:=1;
j:=0;
SetLength(строка, 255);
в то время как Pos(dot, s) > 0 делаем
начинать
str[j]:=copy(s,i,pos(dot,s)-i);
я:=pos(точка,s)+1;
s[i-1] := chr(ord(точка)+1);
j:=j+1;
конец;
str[j]:=copy(s,i,strlen(pchar(s))-i+1);
результат:=стр;
конец;
Вы можете изменить его для достижения необходимых вам результатов.