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

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

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

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

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

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

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

(читать всё…)

Оператор
Writeln(‘Русские буквы’);
печатает абракадабру вместо русских букв в Простой программе или в Консольном приложении в Lazarus 2.02.12.
Как исправить?

(читать всё…)

В общем собираю текстовый файл в Лазарусе. По идее все должно сохраняться в UTF8. Как это проверить? Русские буковы в Блокноте отражаются крякозабрами (в самой программе показываются нормально), как мне удостовериться что выходной файл не смесь кодировок, а именно utf8? (читать всё…)

Alar

При работе с html документами можно столкнуться с проблемами отображения русского текста в кодировках Ansi и UTF-8.

Например, при сохранении данных в блокноте можно выбрать в какой кодировке сохранять данные. Как же это сделать программно, в memo? (читать всё…)

Вобщем нужно «заутэфить» Memo. (читать всё…)