一个分割字符串的例程procedureTfmmain.SeparateTerms(s:string;Separator:string;varTerms:TStringList);//分割字符串过程varhs:string;p:integer;iSeparator:integer;beginiSeparator:=length(Separator);//分割符长度Terms.Clear;//清除字符串中的内容ifLength(s)=0then//长度为0Exit;p:=Pos(Separator,s);whileP0do