Ta上传的资源 (0)

一个分割字符串的例程procedureTfmmain.SeparateTerms(s:string;Separator:string;varTerms:TStringList);//分割字符串过程varhs:string;p:integer;iSeparator:integer;beginiSepa