문자열 처리는 여러 곳에서 자주 사용됩니다. 문자열의 경우 다음 방법을 사용하여 이를 수행할 수 있습니다.
userarray=문자열 배열을 입력합니다.
함수 tform1.split(s:string;dot:char):userarray;
var
str:사용자배열;
i,j:정수;
시작하다
나는:=1;
j:=0;
SetLength(str, 255);
Pos(dot, s) > 0 do
시작하다
str[j]:=copy(s,i,pos(dot,s)-i);
i:=pos(점,s)+1;
s[i-1] := chr(ord(dot)+1);
j:=j+1;
끝;
str[j]:=copy(s,i,strlen(pchar(s))-i+1);
결과:=str;
끝;
필요한 결과를 얻기 위해 이를 수정할 수 있습니다.