分解字符串，同PHP的 explode

var
  type userarray = array  of  string ;
implementation

function   split (s : string ; dot :  char) : userarray;
var
  str : userarray;
  i , j : integer ;
begin
  i := 1 ;
  j := 0 ;
  SetLength(str ,   255 );
   while   Pos (dot ,  s)  >   0   do
  begin
    str[j] := copy (s , i , pos (dot , s) - i);
    i := pos (dot , s) + 1 ;
    s[i - 1 ]  :=   chr ( ord (dot) + 1 );
    j := j + 1 ;
   end ;
  str[j] := copy (s , i , strlen (pchar(s)) - i + 1 );
  result := str;
end ; // split

procedure TForm3 . FormShow(Sender :  TObject);
var
   Temp :  userarray;
begin
    Temp  :=   split ( ' 1,2,3,4 ' , ' , ' );
end ;