Производная TIntegerField

Delphi , Базы данных , Поля

Автор: Mark Edington

Я думал о производной, новом варианте компонента TIntegerfield, но я не могу понять как мне его получить во время разработки, ведь он не устанавливается в палитру компонентов.

Это то, что вы хотите. Создайте следующий молуль:

MICRON.PAS:

unit micron;

interface

uses DB, DBTables, Classes;

type
  TMicronField = class(TIntegerField)
  public
    function IsValidChar(Ch: Char): Boolean; override;
  end;

procedure Register;

implementation

function TMicronField.IsValidChar(Ch: Char): Boolean;
begin
  Result := Ch in ['+', '-', '0'..'9', '.'];
end;

procedure Register;
begin
  RegisterFields([TMicronField]);
end;

end.

Поместите данный модуль в ваш каталог lib и добавьте это поле, используя диалог установки компонент. Затем, используя "DataSet designer", свяжите TMicronField с нужными вам полями, после чего вы увидите, что список типов полей включает теперь "Micron". (для отображения полей на новый тип поля, сначала вам необходимо удалить все TIntegerFields).

Другое решение, более простое (но так-же работающее), заключается в изменении исходного кода DBTables и простой замене существующей функции IsValidChar на TIntegerField.

Автор Mark Edington предлагает создать производную версию компонента TIntegerField для обработки поля с микронами, описывая процесс разработки и добавления нового поля в DataSets.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Поля ::