TStringList *sl = new TStringList;
sl->CommaText = Edit1->Text;
for (int i=0; iCount; i  ) {
    ShowMessage(sl->Strings[i]);
}
delete sl;

int n1 = Edit1->Text.Pos(欲搜尋的字串);     if (n1!=0)   //假設搜尋到了
     // 你要做的事情 
 else
 {
    //Application->MessageBox("沒有資料!!","訊息",48);
    
 }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString get,edt;
  int n;
  n = 0;
  edt = Edit1->Text;                               //來源字串
  while(n <= edt.Length())                         //n < 字串長度
  {
    if(n == 0)
    {
      n = edt.Pos(",");                            //第一個逗點的位置
      get = edt.SubString(1,n-1);                  //取第一個字串
      Edit2->Text = get;                           //顯示取得的字串
    }
    else
    {
      edt = edt.SubString(n 1,edt.Length());       //從逗點後一位開始取到字串最後
      n = edt.Pos(",");
      if(n==0)                                     //n==0，代表字串中沒有逗點了！
      {
        get = edt.SubString(1,edt.Length());       //取最後一個字串 ex:111,222,333，代表333是最後一個字串
        n = Edit1->Text.Length();                  //設定n=Edit1長度，必免再進入迴圈
      }
      else
        get = edt.SubString(1,n-1);                
      Edit2->Text = Edit2->Text   get;
    }
  }
}

 String s="apple,green,skirt";
String temp="";
for(int a=1;a<=s.Length();a  )
  {
      if (s[a]==',')  /////判斷是否有,
         {
         Memo1->Lines->Add(temp);
         temp="";
         goto p;
         }
         temp=temp s[a];
         p:
     if(a==s.Length())///////加入最後一個
         {
         Memo1->Lines->Add(temp);
         }      }