String TmpStr = "程式設計";
  String Str=Edit1->Text;
  int TmpStr_Len;
  Refresh();
  TmpStr=TmpStr.Trim();
  TmpStr_Len=TmpStr.Length();
     if(TmpStr.SubString(1,TmpStr_Len)== Str)
           ShowMessage("測試成功");
     else
           ShowMessage("測試不成功"); 

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  bool Found = false;      String TmpStr = "程式設計";
  String Str=Edit1->Text;      for(int i=0;i    國泰平安
        

 
  bool Found = false;      String TmpStr = "字串程式設計";
  String Str=Edit1->Text;
  TmpStr=TmpStr.Trim();
  Str=Str.Trim();      for(int i=0;iText="";
          Found= true;
          break;
         }
   
     if(!Found)
        {
         ShowMessage("測試不成功");
         Edit1->Text="";
        }