{блок главного окна}
блок Главный;
интерфейс
использует
…{опустить другой контент}
PROcedure Table1BirthdayGetText(Отправитель: TField;
var Text: String; DisplayText: Boolean);
процедура Table1BirthdaySetText(Отправитель: TField;
константный текст: строка);
частный
{Частные заявления}
общественный
{Публичные заявления}
……{немного}
выполнение
{Включить специальные единицы}
использует DBDateEditMaskTrans;
{$R *.DFM}
...{Другие процессы опущены}
процедура TForm1.FormActivate(Отправитель: TObject);
{Установите маску ввода поля даты,
Может быть помещен в определение поля TField. }
начинать
Table1.FieldByName('День рождения').EditMask:=
'9999年99月99日;1;_';
конец;
процедура TForm1.Table1BirthdayGetText(Отправитель:
TField; вар Текст: Строка; DisplayText: Boolean);
начинать
DateFieldGetText (Отправитель, Текст);
конец;
процедура TForm1.Table1BirthdaySetText(Отправитель:
TField; константный текст: строка);
начинать
если DateFieldSetText(Sender,Text)=False, то
Прервать {Преобразование не удалось, дата недопустима};
конец;
конец.