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

[Arigato]

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

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

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

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

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

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

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

[phomm]

А пробовали уже OnChange вместо OnKeyPress с тем же самым кодом ?

[Mic0x10h]

Верно про OnChange. Вот так можно:

uses lazutf8;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if UTF8Length(Edit1.Text)>30
  then
  begin
   Edit1.Text:=OldEditText;

   Edit1.SelStart:=Length(OldEditText);    //Курсор в конец строки, так уместнее
   Edit1.SelLength:=0;
  end
  else OldEditText:=Edit1.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldEditText:='';
end;

К тому же OnKeyPress, OnKeyDown Up -вставку из буфера обмена пропустят.

По этому же принципу в OnChange можно делать ввод только числовых значений, с помощью TryStrToInt или TryStrToFloat, ну например.

[Arigato]

Ну это примерно такой же костыль. В случае ограничения свойством MaxLength и вставки из буфера обмена, вставленный текст просто обрезается. А в предложенном варианте вообще ничего не вставится. Ну и потеря позиции курсора.

В общем, пока нормального варианта нет, а штатный MaxLength, который обязан корректно работать, не работает в кривом Лазарусе, с помпой перешедшем на UTF8 (с такой помпой, что некоторый функции, типа AnsiToUtf8, которые раньше работали, тупо вообще больше ничего не делают).

[Mic0x10h]

Так не пойдет?:

procedure TForm1.Edit1Change(Sender: TObject);
var
   st:widestring;
begin
  st:=Edit1.Text;
  if Length(st)>30 then
  begin
   Delete(st,30,Length(st)-30);
   Edit1.Text:=st;

   Edit1.SelStart:=Length(Edit1.text);
   Edit1.SelLength:=0;
  end;
end;

[Mic0x10h]

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

MaxLength, который обязан корректно работать, не работает в кривом Лазарусе

Кстати, у меня нормально вроде работает. 10 символов и латиница и кириллица и корейские буквы.

Lazarus 1.6 у меня стоит под Windows.

[Arigato]

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

Lazarus 1.6

У меня версия 2.0.2.

[BDA]

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

У меня версия 2.0.2.

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

[DIONISKA]

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

У меня версия 2.0.2.

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

[Arigato]

Спасибо, попробую обновиться. Так-то Лазарус запускаю раз в пятилетку, потому какой стоит, такой стоит...

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