分隔字符串

procedure   TForm1.Split(Mstr:String;   Sstr:   String;   var   Darray:   array   of   string);  
  var  
      i,k,m:integer;  
      tStr:String;  
  begin  
      k:=0;  
      m:=Length(Mstr);  
      for   i:=1   to   m   do  
          begin  
          if   (Mstr[i]   =   Sstr[1])   or   (i=m)   then  
              begin  
              Darray[k]:=tStr;  
              tStr:='';  
              k:=k+1;  
              end  
          else  
              tStr:=tStr+Mstr[i];  
          end;  
  end;  
   
  //-调用  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      a:string;  
      s:array   [0..5]   of   string;  
  begin  
      a:='I   am   a   programer';  
      self.Split(a,'   ',s);  
      showmessage('ok');  
  end;