تقسيم السلسلة إلى مصفوفة أحادية البعد في دلفي

غالبًا ما يتم استخدام معالجة السلسلة في العديد من الأماكن. بالنسبة للسلسلة، يمكن تحقيق ذلك باستخدام الطريقة التالية.

اكتب userarray=صفيف السلسلة؛

وظيفة tform1.split(s:string;dot:char):userarray;

فار

str:userarray;

أنا، ي: عدد صحيح؛

يبدأ

أنا:=1;

ي:=0;

SetLength(str, 255);

بينما Pos(dot, s) > 0 افعل

يبدأ

str[j]:=copy(s,i,pos(dot,s)-i);

i:=pos(dot,s)+1;

s[i-1] := chr(ord(dot)+1);

ي:=ي+1;

نهاية؛

str[j]:=copy(s,i,strlen(pchar(s))-i+1);

النتيجة:=str;

نهاية؛

ويمكنك تعديله لتحقيق النتائج التي تحتاجها.