Delphiで文字列を1次元配列に分割する

文字列処理はさまざまな場所でよく使用されます。文字列の場合、これは次のメソッドを使用して実行できます。

type userarray=文字列の配列;

関数 tform1.split(s:string;dot:char):userarray;

変数

str:userarray;

i,j:整数;

始める

i:=1;

j:=0;

SetLength(str, 255);

while Pos(dot, s) > 0 の場合

始める

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;

終わり;

必要な結果が得られるように変更できます。