Свойство MaxLength у TEdit и кодировка UTF8

Posted by obzor under Lazarus, Free Pascal

Вот какая возникла проблема. Нужно ограничить количество символов, которые может ввести пользователь в TEdit. Для этого предназначено свойство MaxLength, но оно не понимает кодировку UTF8, а именно с ней и работает Lazarus (странно, да, работает с этой кодировкой, но свойства ее не понимают).

В итоге если, скажем, прописать MaxLength := 30, то длина строки будет ограничена лишь 15 символами для русского текста.

Применил костыльное решение:
1. Установил MaxLength := 60, то есть в два раза больше, чем надо (но так оно пропустит более 30 нерусских символов).
2. На обработчик события KeyPress прописал следующее:

  if (Key >= ' ') and (UTF8Length(TEdit(Sender).Text) >= 30) then Key := #0;

Оно, конечно, как-то работает, но, во-первых, это реальный костыль, а, во-вторых, работает только если вводить прямо с клавиатуры, а если скопировать длинный текст из буфера, то ограничение не сработает.

Можно, конечно, еще дополнительно проверять длину текста и обрезать его, если окажется длиннее, но это уже двойной костыль будет.

Есть ли нормальное решение проблемы?

BDA

Скачал последнюю версию (2.2.6), вроде корректно работает MaxLength.

DIONISKA

начиная с 2.0.4 вроде поправили, просто обновитесь до последней, там много чего исправлено

Arigato

Обновление до версии 2.2.6 решило проблему, действительно MaxLength корректно работает с кодировкой UTF8.

тема на форуме

Похожие статьи

• Русские буквы в Консольном приложении Lazarus
• Как проверить файл на юникодность
• Ansi в UTF-8 и наоборот UTF-8 в Ansi
• Перевести текст в кодировку utf8
• Hint на Edit
• На форме есть 10 Edit’ов и необходимо сравнить их значения