split کردن در دلفی

[monaizadi]

:اشتباه:سلام
میخواسم بدونم که چطوری میتونم یه string که با ',' از هم جدا شدند رو split جدا کنم.
ممنون.

[Felony]

یه نمونه که براتون نوشتم امیدوارم منظورتون رو درست فهمیده باشم :


var
a,str1,str2:string;
b,i:integer;
begin
a:='Smile,Soft';
b:=length(a);
for i:=1 to b do begin
IF a[i] = ',' Then begin
str1:=copy(a,0,i-1);
str2:=copy(a,i+1,b);
label1.caption:=str1;
label2.caption:=str2;
end;
end;
end;
end.
end.