一个分割字符串的例程
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 then // 长度为0
Exit;
p := Pos(Separator, s);
while P <> 0 do
begin
hs := Copy(s, 1, p - 1); // 复制字符
Terms.Add(hs); // 添加到列表
Delete(s, 1, p + iSeparator - 1); // 删除字符和分割符
p := Pos(Separator, s); // 查找分割符
end;
if Length(s) > 0 then
Terms.Add(s); // 添加剩下的条目
end;