Le traitement des chaînes est souvent utilisé dans de nombreux endroits. Pour une chaîne, cela peut être fait en utilisant la méthode suivante.
tapez userarray=tableau de chaînes ;
fonction tform1.split(s:string;dot:char):userarray;
var
str:userarray;
je,j:entier;
commencer
je:=1;
j:=0;
SetLength(chaîne, 255);
tandis que Pos(dot, s) > 0 fais
commencer
str[j]:=copie(s,i,pos(point,s)-i);
je:=pos(point,s)+1;
s[i-1] := chr(ord(point)+1);
j:=j+1;
fin;
str[j]:=copie(s,i,strlen(pchar(s))-i+1);
résultat :=chaîne ;
fin;
Vous pouvez le modifier pour obtenir les résultats dont vous avez besoin.