Ограничение текста до 5 символов

[Shouldercannon]

Есть Edit1 с MaxLength := 5. Когда вводишь текст в Edit1 с клавиатуры, то ограничение работает, а если его вставить откуда-либо, то не работает. Как исправить данное положение?

[Квэнди]

обработать onchange

[Stilet]

Ну например смешным вариантом:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 TEdit(sender).Text:=copy(TEdit(sender).Text,1,5);
end;

[r9m]

Есть Edit1 с MaxLength := 5. Когда вводишь текст в Edit1 с клавиатуры, то ограничение работает, а если его вставить откуда-либо, то не работает. Как исправить данное положение?

Проверил на d7,d2k10 - всё нормально работает Другое дело, если вставлять программно.

[Shouldercannon]

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

Проверил на d7,d2k10 - всё нормально работает Другое дело, если вставлять программно.

Это и имеется ввиду, что програмное вставление не поддаётся ограничению.
Лучшее решение данной проблемы предложено Stilet

[r9m]

Я просто подумал про копировать\вставить

програмное вставление

Прикольно сказанул )

[Alekcey]

SetLength(myString, 5);

[Stilet]

Лучшее решение данной проблемы предложено Stilet

Ви ест ошибатся. В етот код есть маленкий глупость. Das ist смена первого символа, когда идет набор шестого, тогда курсор перескакивает в начало (строка то меняется) и начинает при последующем наборе фаршировать введенным в первую позицию - выглядит глупо.
Потому нужно после copy перемещать курсор в конец строки

 TEdit(sender).SelStart:=5;

Я не сразу допер до этого.

Alekcey

Это не то.

[evg_m]

SetLength(myString, 5);

правильнее будет i

if Edit1.maxlength>0 then
  edt1.text:=copy(s, 1,edit1.maxlength)
else
 edit1.text:=s;

будет правильно работать даже если ограничения (maxlength) изменяться или вообще оменяться