چطور میشه یک string یا char* رو بر اساس یک رشته کاراکتر split کرد؟

چطور میشه یک string یا char* رو بر اساس یک رشته کاراکتر split کرد؟

ممنون میشم از دوستان اگه function آماده ای دارن بزارند.

int __fastcall TGlobal::SplitString(const AnsiString & Text, const AnsiString & Spliter, TStrings * Strings)

{

 int  pos;

 AnsiString  str, txt;

 str = Text;

 Strings->Clear();

 do

 {

  pos = str.Pos(Spliter);

  if (pos)

  {

   txt = str.SubString(1, pos-1);

   Strings->Add(txt);

   str = str.SubString(pos+1, str.Length() - pos);

  }

 }

 while(pos);

 if (!str.IsEmpty())

  Strings->Add(str);

 return Strings->Count;

}

//------------------------------------------------------------------------------

سلام

در زبان سی تابع strtok اینکار رو میکنه.

ممنون علی