Delphi中检查字符串是否包含空格字符【ContainsWhiteSpace】

函数代码

function ContainsWhiteSpace(const S: string): Boolean;
const
  cWhiteSpace = ' '#9#10#11#12#13;  // white space characters
begin
  Result := ContainsDelims(S, cWhiteSpace);
end;