分解字符串，同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;