Что нужно исправить чтобы не вылетал Warning?

[garuna]

Добрый день! Переношу проект с Delphi 7 на Delphi XE
В программе есть функция, которая определяет есть ли в строке запрещенные символы:

function AllowedSet(const s: String): Boolean;
var i, len: Integer;
begin
 len:= Length(s);
 Result := True;
 for i := 1 to len do
 if (not (s[i] in ['0'..'9'])) and (not (s[i] in ['A'..'Z'])) and (s[i] <> '-') and (s[i] <> ' ') then
 begin
  Result := False;
  Break;
 end;
end;

Всё хорошо, но при компиляции выпадает Warning:

[DCC Warning] Unit1.pas(1364): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

Подскажите, как нужно правильно переписать функцию чтобы без всяких warning?

[Shouldercannon]

function AllowedSet(const s: String): Boolean;
var
  i, len: Integer;
begin
  len := Length(s);
  Result := True;
  for i := 1 to len do
  begin
    if (not (CharInSet(s[i], ['0'..'9']))) and (not (CharInSet(s[i], ['A'..'Z']))) and (s[i] <> '-') and (s[i] <> ' ') then
    begin
      Result := False;
      Break;
    end;
  end;
end;

[Vapaamies]

Один быдлокод заменили другим быдлокодом.

[Stilet]

с Delphi 7 на Delphi XE

Рекомендую использовать регулярные выражения, если конечно эта функция не участвует с тяжелой обработке данных.
А вообще

if (not s[i] in ['0'..'9','A'..'Z','-',' '] then

гораздо удобнее был бы в данной ситуации.

[Аватар]

А чего бы так не сделать в д7

function AllowedSet(const s: String; ValidChars: TSysCharSet): Boolean;
var i: Integer;
begin
  Result := False;
  for i := 1 to Length(s) do if not (s[i] in ValidChars) then Exit;
  Result := True;
end;

И обращение:

if not AllowedSet(s,['0'..'9','A'..'Z','-',' ']) then ...

И в XE с таким же обращением:

function AllowedSet(const s: String; ValidChars: TSysCharSet): Boolean;
var i: Integer;
begin
  Result := False;
  for i := 1 to Length(s) do if not CharInSet(s[i],ValidChars) then Exit;
  Result := True;
end;