Delphi中把字符串转换为字符集合

函数代码

type
  {$IFDEF UNICODE}
  TCharSet = TSysCharSet;
  {$ELSE}
  TCharSet = set of Char;
  {$ENDIF}
function AnsiStringToCharSet(const S: RawByteString): TCharSet;
var
  Idx: Integer;  // indexes characters of S
begin
  Result := [];
  for Idx := 1 to Length(S) do
    Include(Result, S[Idx]);
end;