Pemrosesan string sering digunakan di banyak tempat. Untuk sebuah string, hal ini dapat dilakukan dengan menggunakan metode berikut.
ketik userarray=array string;
fungsi tform1.split(s:string;dot:char):userarray;
var
str:array pengguna;
saya,j: bilangan bulat;
mulai
saya:=1;
j:=0;
SetPanjang(str, 255);
sedangkan Pos(titik, s) > 0 lakukan
mulai
str[j]:=salin(s,i,pos(titik,s)-i);
i:=pos(titik,s)+1;
s[i-1] := chr(ord(titik)+1);
j:=j+1;
akhir;
str[j]:=salin(s,i,strlen(pchar(s))-i+1);
hasil:=str;
akhir;
Anda dapat memodifikasinya untuk mencapai hasil yang Anda butuhkan.