说明: 一个分割字符串的例程 procedure Tfmmain.SeparateTerms(s: string; Separator: string; var Terms: TStringList); //分割字符串过程 var hs: string; p: integer; iSeparator: integer; begin iSeparator := length(Separator); //分割符长度 Terms.Clear; // 清除字符串中的内容 if Length(s) = 0 th
<yanssunhufeng> 在 上传 | 大小:8192