Как найти русские буквы в Memo на Delphi XE2?

Question

[Дмитрий]

Стоит задача посчитать сколько букв в тексте. Текст этот находится в Memo. С поиском и подсчетом английских букв никаких проблем нет. А вот с русскими беда.
Пробовал и так:

bukv = [(#65)..(#90),(#97)..(#122),(#192)..(#255)];

и так:

bukv = [(#65)..(#90),(#97)..(#122),'а'..'я','А'..'Я','ё','Ё'];

и так:

bukv = [(#65)..(#90),(#97)..(#122),'а'..'п', 'р'..'я', 'ё'];

и даже вот так решил попробовать:

bukv = [(#65)..(#90),(#97)..(#122),AnsiCHar(#192)..AnsiCHar(#255)];

и на закуску - так:

bukv = [(#65)..(#90),(#97)..(#122),AnsiCHar('А')..AnsiCHar('я')];

Ни один из вышеизложенных примеров не работает в Delphi XE2. Помогите пожалуйста!

Comments

[Дмитрий]

Насколько я знаю, DelphiXE уже полностью перешел на юникод. Попробуйте так:

WideCHar('А')..WideCHar('я'),WideCHar('Ё'),WideCHar('ё')

Или явно преобразуйте тип строки в AnsiString перед сравнением (но это плоховатое решение).

Answer 1

[Hemul GM]

[ ] - это множество. Оно ограничено в количестве и типе данных.
Только 255 значений и только byte.
В Memo ты пишешь текст уже в Unicode, а значит, русские символы там не входят в диапазон 0..255, они имеют совсем иные значения.

По этому тут не нужно использовать множество.

Добавь функцию для проверки русский символ это или нет

var Cyrillics: string := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
...
function IsCyrillic(const Ch: Char): Boolean;
begin
  for var C in Cyrillics do
    if C.ToLower = Ch then Exit(True);
  Result := False;
end;
...
function CyrillicCount(const Text: string): Cardinal;
begin
  Result := 0;
  for var C in Text do
    if IsCyrillic(C) then Inc(Result);
end;
...
var Count := CyrillicCount(Memo.Text);

Answer 2

[kalapanga]

Буквы задать так
bukv = 'абвгд';
Проверять так
if Pos(Memo1.Lines[i][j], bukv)>0 then ...

Comments

[Дмитрий]

то есть мне что каждую букву алфавита нужно прописать отдельно? И как мне английские буквы тогда добавить? Я ж для того и прописал bukv = [(#65)..(#90),(#97)..(#122),(#192)..(#255)]; чтобы выбрать диапазон. Чтобы каждую букву по отдельности не писать.

[kalapanga]

Дмитрий, Я подумал Вам в смешанном тексте нужно количество русских букв посчитать. Если нужно общее количество символов, то зачем тогда вообще эти сеты? Сложите длины строк Length(Memo1.Lines[i]) и всё!
В принципе Length(Memo1.Text) даст то же самое, но ещё плюсом учтёт символы перевода строки.