我,菜鸟,只能用些低级语句
以下是我的方法：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i,j,count,a[100],n=0;         \\管他的,先设个a[100]再说
        String stra;
        for (i=0;i<=Edit1->Text.Length();i++)
        {
                if (Edit1->Text.SubString(i,1)==0||
　　　　　　　　　　Edit1->Text.SubString(i,1)==1||
                    Edit1->Text.SubString(i,1)==2||
　　　　　　　　　　Edit1->Text.SubString(i,1)==3||
                    Edit1->Text.SubString(i,1)==4||
　　　　　　　　　　Edit1->Text.SubString(i,1)==5||
                    Edit1->Text.SubString(i,1)==6||
　　　　　　　　　　Edit1->Text.SubString(i,1)==7||
                    Edit1->Text.SubString(i,1)==8||
　　　　　　　　　　Edit1->Text.SubString(i,1)==9)　  \\这招是我惯用的"不达目的死不罢休"招式
                {
                        stra=stra+Edit1->Text.SubString(i,1);
                }
                else
                {
                        if (stra.IsEmpty()==false)
                        {
                                ListBox1->Items->Strings[n]=stra;
                                stra="";
                                n++;
                        }
                }
        }
        for (j=0;j<=ListBox1->Items->Count-1;j++)
                a[j]=StrToInt(ListBox1->Items->Strings[j]);
        count=ListBox1->Items->Count;
}

stra=abc123d456e7f89g0;
执行结果：
a[0]=123;
a[1]=456;
a[2]=7;
a[3]=89;
a[4]=0;
count=5