AnsiString test = "abc,bbb,ccc,aaa,add,ddc";
 TStringList* SL = new TStringList();
 SL->CommaText = test;
 for (int i=0; iCount ;i  )
   ShowMessage(SL->Strings[i]);
 delete SL;

procedure TForm1.Button1Click(Sender: TObject);
var Str:String;
    SL:TStringList;
begin
 Str:='abc,bbb,ccc,aaa,add,ddc';
 SL:=TStringList.Create;
 SL.CommaText:=Str;
 ShowMessage(SL.Text);
 SL.Free;
end; 

引言: 我想問 TStringList 是什麼來 ?

請參考Classes單元 網海無涯，學無止境!

引言: 請問如何把字串拆開 ? s:='abc,bbb,ccc,aaa,add,ddc'; 以上字串如何把它分開為 : abc bbb ccc aaa add ddc 麻煩各位高手解答~~~

function TSysUT.getaryStr(var AryList: Array of string;        mString: string): boolean;
        var xpos: string;
            xFind: integer;
            i: integer;
begin
     xpos:= '';
     xfind:= -1;
     result:= True;
     i:= 0;
     while xfind <> 0 do
     try
        xfind:= pos(',',mString);
        if xfind = 0 then break;
        xpos:= copy(mString,1,xfind-1);
        AryList[i]:= xpos;
        Delete(mString,1,length(xpos) 1);
        inc(i);
     except
        on E: Exception do begin
           result:= False;
           Break;
        end;
     end;
end;    

s:='abc,bbb,ccc,aaa,add,ddc';
s1 := Trim(Copy(s, 0, Pos(',', s)-1));
Delete(s, 1, Pos(',', s));
s2 := Trim(Copy(s, 0, Pos(',', s)-1));
Delete(s, 1, Pos(',', s));
s3 := Trim(Copy(s, 0, Pos(',', s)-1));
Delete(s, 1, Pos(',', s));   
 . 
 .
 .
s6 := Trim(s6);    如此可得
s1=abc
s2=bbb
s3=ccc
s4=aaa
s5=add
s6=ddc    Trim 是用來清空不要的空白字元，也就是說 s:='  abc' 經過 Trim(s) 之後 s='abc'