字符串判断问题

[quickboy19821982]

已经有了一串字符串，如何判断该字符串中是否包含非法字符？
如：该字符串是一串十六进制数据组成，所以其单个字符取值范围是0~F，如何判断整个字符串是否包含有其他字符？

[luxuewei5214]

最笨的办法，扫一遍，看看有没大于ord('F')的字符，前提是不许字母小写；

[jadeluo]

function IsDataValid(sData: String): Boolean;
var
  i: Integer;
begin
  Result := True;
  for i := 1 to Length(sData) do
  begin
    if not (sData[i] in ['0'..'9', 'a'..'f', 'A'..'F']) then
    begin
      Result := False;
      break;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsDataValid('123AbCx') then
    ShowMessage('Valid')
  else
    ShowMessage('Invalid');
end;

[quickboy19821982]

不知道有没有更好的呢。。。这个碰到长字符串速度会慢吧。。。测试下性能先

[僵哥]

对于无序数据,只能完全扫描.

[僵哥]

当然,可以使用二分法.

[quickboy19821982]

经过测试，该函数速度能满足要求，谢谢，这就结贴