TStringList *Split(AnsiString str,AnsiString split_c);  // << 이거 추가해주세요.. ^_^;;;;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringList *m = Split("3213-6546-5454-654654--6546-888","-");
    ListBox1->Items->Assign(m);
    delete m;
}
//---------------------------------------------------------------------------

TStringList *Split(AnsiString str,AnsiString split_c)
{
    TStringList*l=new TStringList();
    int len=str.Length();
    AnsiString temp="";
    for(int i=0;i<len;i++){
        AnsiString t=str.SubString(i+1,1);
        if(t==split_c){
            l->Add(temp);
            temp="";
        }else{
            temp+=t;
        }
    }
    l->Add(temp);
    return l;
}