Множества! Не видит русских строчных символов, и английских

[paravoz1k]

  value := Length(s) ;
for i:= 1 to value do
begin
if s[i] in ['а'..'z'] then edit3.Text := edit3.Text + s[i];
if s[i] in ['а'..'я']  then edit4.Text :=  edit4.Text + s[i];
if s[i] in ['1'..'9']   then edit5.Text:=edit5.Text + s[i];
end;

s - строка

Программма не хочет разность буковки по категориям! Ума не приложу приложу почему! Господа, прошу вас помочь, реально непонимаю в чем моя ошибка

[Вадим Мошев]

Множество русских букв НЕЛЬЗЯ задавать напрямую, как это сделали вы

['а'..'я']

Оно имеет разрыв.

[paravoz1k]

Оно имеет разрыв.

тогда можно спросить где разрыв?
И почему по такому методу и английские строчные не идут в свой edit....

[Вадим Мошев]

Где разрыв, я не помню.
Опишите чётко и подробно задачу, что требуется сделать...

[veniside]

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

И почему по такому методу и английские строчные не идут в свой edit....

потому, что русская 'a' вот тут:

if s[i] in ['а'..'z'] then edit3.Text := edit3.Text + s[i];

ваш КО

[Serge_Bliznykov]

1) veniside, отлично! Абсолютно точно, при задании диапазона надо быть ЧРЕЗВЫЧАЙНО внимательным. действительно, от русской буквы 'а' до латинской 'z' нет ни одной буквы, т.к. код русской буквы больше кода латинской!

2) никаких разрывов в русских буковках нет (они есть в MS DOS турбо Паскале (таблица 866), а это ж Delphi, тут коды букв согласно таблице Windows-1251)

3) а куда ноль потеряли? или он уже не цифра?!
я уже молчу про ПРОПИСНЫЕ буквы, которые будут игнорироваться данным кодом...

4) вот, проверил.
всё работает как часы!

var s : AnsiString;
   i : integer;
begin
  s := Edit1.Text ;
for i:= 1 to Length(s) do
begin
  if s[i] in ['a'..'z'] then edit3.Text := edit3.Text + s[i];
  if s[i] in ['а'..'я'] then edit4.Text := edit4.Text + s[i];
  if s[i] in ['0'..'9'] then edit5.Text := edit5.Text + s[i];
end;