就是把一个指定的字符串用指定的分割符号分割成多个子串，放入一个 TStringList 中
function ExtractStrings(Separators, WhiteSpace: TSysCharSet
Content: PChar;
Strings: TStrings): Integer;
比如要把 'abc,defg,hijkl'
按照逗号','分割开:
var
Res: TStringList;
Count: Integer;
begin
s := 'abc,defg,hijkl';
Res := TStringList.Create;
Count := ExtractStrings([','], [], PChar(s), Res);
ShowMessage('共分割出 ' + IntToStr(Count) + ' 个子串');
ShowMessage(Res.Text);
Res.Free;
end;
