字符串截取的过程

procedure str_intercept(s: string; Separator: char;
  Terms: TStringList);
  var
  hs : string;
  p : integer;
begin
  Terms.Clear;           // 清空StringList中的所有内容
  if Length(s)=0 then   // 字串长度0就退出
  begin
    Exit;
  end;
  p:=Pos(Separator,s);
  while P<>0 do
  begin
    hs:=Copy(s,1,p-1);   // 拷贝字串
    Terms.Add(hs);       // 添加到LIST中
    Delete(s,1,p);       // 删除刚拷贝的字串
    p:=Pos(Separator,s); // 寻找下一个和指定字符的字串
  end;
  if Length(s)>0 then
    Terms.Add(s);        // 把盛下的字串添加到TERM中
end;