Pos от буквы А до Я

[Pearl777]

Здравствуйте!
Подскажите как сделать так, чтобы Pos искал в тексте буквы от А до Я.

Не хочется делать это на кучу строк. Может есть более просто вариант?

if Pos('А'...'Я')<>0 then - это для примера, чтобы мой вопрос был понятнее.

[Stilet]

Pos() такого не умеет. Используй регулярные выражения.

[Аватар]

for i:=1 to Length(s) do if s[i] in ['А'..'Я','Ё'] then ...

для Д7. Не помню - может кроме Ё еще какие буквы не подряд кодируются

[саша40]

Может так:

var
a: integer;
begin
a:=pos(['A'..'Я','Ё','а'..'я'],'бла-бла-бла');
end;

[Stilet]

Может так:

Проверял? Работает? Версия Делфи?

[Аватар]

Естественно не работает

[Serge_Bliznykov]

Сообщение от саша40

Может так:

var
a: integer;
begin
a:=pos(['A'..'Я','Ё','а'..'я'],'бла-бла-бла');
end;

саша40, ну прежде чем писать ересь, Вы бы хотя запустили Delphi, проверили, "может так" или не может.
Разумеется, так "НЕ может", потому как Pos не заточена под подобное использование!

[Pearl777]

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

Pos() такого не умеет. Используй регулярные выражения.

Подскажите, как это реализовать с помощью регулярок? Не нашел нормальной информации по моему вопросу.

[Pearl777]

Ладно, всем спасибо!

Реализую с помощью цикла и массива.

[Serge_Bliznykov]

Реализую с помощью цикла и массива.

а чем решение из пост #3 не подошло?