Строки, Как считать кол-во строчных и прописных русских букв? Опции

[Вася]

Как можно посчитать кол-во строчных и прописных русских букв в строке?
У меня есть один способ считать строчные, а есть ли ещё?

Код

for i:= 1 to length(s) do
       if (ord(s[i]) in [160..175]) or (ord(s[i]) in [224..239])   then
            rus:= rus + 1;

[Гость]

У меня есть один способ считать строчные, а есть ли ещё?

Можно, например, не переводить в номера, прямо по символам:

Код

for i:= 1 to length(s) do
       if (s[i] in [#160..#175]) or (s[i] in [#224..#239])   then
            rus:= rus + 1;

Или можно сравнениями:

Код

for i:= 1 to length(s) do
       if (159<Ord(s[i])and(Ord(s[i]<176) or (223<s[i])and(Ord(s[i])<239) then
            rus:= rus + 1;