VPF::RegExpr контроль вводимых символов

StrikerLoner

Дата 24.8.2012, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 1
Регистрация: 3.3.2009

Репутация: нет
Всего: нет

Имеем
Используем данную функцию для контроля вводимых данных, чтобы в позиции где должен быть текст вбиваться мог только текст в позиции цифр только цифры.

1. Поле ввода
2. Регулярное выражение например ^\d{10}[/]\d{10}$
3. Строку возможных символов например '1234567890?/qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNMйцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'
на выходе нужну получить список ожидаемых символов для опрделенной позиции
в случае если текста нет то должно быть '1234567890'

Код


function GetAviableSymbols(ARegExText, AText, AAviableSymbols: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(AAviableSymbols) do
    if ExecRegExpr(ARegExText, AText + AAviableSymbols[i]) then
      Result := Result + AAviableSymbols[i];
end;

данная функция работает не корректно, т.к. должно быть полное заполнение

для регулярного выражения вида ^\S.*$ все работает корректно
для регулярного выражения вида ^[0-9].*$ все работает корректно

есть какие либо варианты определения частичного совпадения текста с шаблоном?

klyaksa

Дата 25.8.2012, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

Если посимвольно проверяется, то не проще ли CharInSet использовать?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »