Символ карилица

[mavlon_m]

Всем привет,
Мне нужно определить есть ли в моем тексте символ кириллица...
кто знает? Есть ли готовая функция?

[Stilet]

Если функции нет, то можно написать.
Типа

function Cyr(s:string):Boolean; var i:integer;
begin
 for i:=1 to Length(s) do 
  if ((s[i]>='А') and (s[i]<='Я')) or ((s[i]>='а') and (s[i]<='я')) then 
  begin Result:=true; exit; end;
 result:=false;
end;

[Iron Monk]

function Cyr(S: string): Boolean;
var
i:integer;
const
Rus: Set of AnsiChar = ['А'..'я'];
begin
    Result:=false;
    for i:=1 to Length(S) do
        if s[i] in Rus then
        begin
            Result:=true;
            break;
        end;
end;

[Vapaamies]

Сообщение от mavlon_m

Мне нужно определить есть ли в моем тексте символ кириллица...

function IsCyrillic(const S: UnicodeString): Boolean;
var
  I: Integer;
begin
  for I := 1 to Length(S) do
    case Word(S[I]) of
      $400..$52F, $2DE0..$2DFF, $A640..$A69F:
        begin
          Result := True;
          Exit;
        end;
    end;
  Result := False;
end;

[Аватар]

if ((s[i]>='А') and (s[i]<='Я')) or ((s[i]>='а') and (s[i]<='я')) then

Ё ё так не поймается

[Vapaamies]

Посмотрим теперь, какой вариант автор темы выберет -- наколенный или по стандарту.

[Iron Monk]

Сообщение от Аватар

Ё ё так не поймается

const
Rus: Set of AnsiChar = ['А'..'я','ё','Ё'];

[Аватар]

$400..$52F, $2DE0..$2DFF, $A640..$A69F

Это интервалы для всех возможных кириллических символов в юникоде? Чет много, запас не хилый наверно

[Vapaamies]

Сообщение от Аватар

Чет много, запас не хилый наверно

Там с сербским, таджикским и якутским, всякими ятями дореформенными и прочим.

[Stilet]

Ё ё так не поймается

Добавить значит.

Set of AnsiChar

Выходит из моды учитывая юникод...