Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 990

•  TDictionary Custom Sort  6 099

•  Fast Watermark Sources  5 898

•  3D Designer  8 726

•  Sik Screen Capture  6 220

•  Patch Maker  6 651

•  Айболит (remote control)  6 643

•  ListBox Drag & Drop  5 501

•  Доска для игры Реверси  95 548

•  Графические эффекты  6 859

•  Рисование по маске  6 056

•  Перетаскивание изображений  5 035

•  Canvas Drawing  5 403

•  Рисование Луны  5 124

•  Поворот изображения  4 669

•  Рисование стержней  3 285

•  Paint on Shape  2 530

•  Генератор кроссвордов  3 419

•  Головоломка Paletto  2 735

•  Теорема Монжа об окружностях  3 519

•  Пазл Numbrix  2 316

•  Заборы и коммивояжеры  3 005

•  Игра HIP  1 959

•  Игра Go (Го)  1 879

•  Симулятор лифта  2 229

•  Программа укладки плитки  1 945

•  Генератор лабиринта  2 380

•  Проверка числового ввода  2 070

•  HEX View  2 392

•  Физический маятник  2 023

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Исправление DBEdit MaxLength



Автор: Reinhard Kalinke

Аксиомы:
1. Купи Pentium IV и увидишь, что REBOOT там намного быстрее.
2. У программ нет глюков. Они просто содержат неизвестные тебе функции.
3. Лучший метод сжатия файлов: DEL *.* - 100% сжатие.
4. Пентиум III - это такая новая модель процессоров, делающая ошибки в 10 раз быстрее.
5. Секрет Windows: Запусти на Пентиуме эмулятор PC XT.
6. Компьютер - это устройство, созданное для скоростного создания и автоматизации ошибок.
7. E-mail, возвращенный отправителю, означает несоответствие напряжений в Сети.
8. Компьютеры делают очень быстро и аккуратно стандартные ошибки.

Я, кажется, не могу получить свойство MaxLength, чтобы работать с компонентами TDBEdit. В TEdit это работает как положено, но при попытке задать максимальную длину текста в TDBEdit это не срабатывает, и я все еще могу набрать текст сверх установленного ограничения.

По-моему, это является следствием этого кода в TDBEdit.DataChange (DBCTRLS.PAS):


if FDataLink.Field <> nil then
begin
...
  if FDataLink.Field.DataType = ftString then
    MaxLength := FDataLink.Field.Size 
  else
    MaxLength := 0;
  ...
  end else
  begin
  ...
    MaxLength := 0;
  ...
end;

т.к. иногда значение устанавливается на ноль...

Похоже все будет работать, если вы измените строку


MaxLength := 0;

на


MaxLength := inherited MaxLength;

Для того, чтобы изменения вступили в силу, вам необходимо перекомпилировать ваш complib с измененным DBCTRLS.PAS, находящимся в пути lib.

Если вы хотите использовать MaxLength с StringField, изменений необходимо сделать немного больше:


...
if (FDataLink.Field.DataType = ftString)
  and (inherited MaxLength = 0) then
    MaxLength := FDataLink.Field.Size 
  else
    MaxLength := inherited MaxLength;
...

Или использовать что-то типа EditMask...








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте