{unidad de ventana principal}
unidad principal;
interfaz
usos
…{omitir otro contenido}
Tabla de procedimientos1CumpleañosGetText(Remitente: TField;
var Texto: Cadena; DisplayText: Booleano);
procedimiento Table1BirthdaySetText(Remitente: TField;
Texto constante: Cadena);
privado
{Declaraciones privadas}
público
{Declaraciones públicas}
……{levemente}
implementación
{Incluir unidades personalizadas}
utiliza DBDateEditMaskTrans;
{$R *.DFM}
...{Otros procesos omitidos}
procedimiento TForm1.FormActivate(Remitente: TObject);
{Establecer la máscara de entrada de un campo de fecha,
Se puede colocar en la definición del campo TField. }
comenzar
Table1.FieldByName('Cumpleaños').EditMask:=
'9999年99月99日;1;_';
fin;
procedimiento TForm1.Table1BirthdayGetText(Remitente:
TField; var Texto: Cadena; DisplayText: Booleano);
comenzar
DateFieldGetText(Remitente,Texto);
fin;
procedimiento TForm1.Table1BirthdaySetText(Remitente:
TField; texto constante: cadena);
comenzar
si DateFieldSetText(Remitente,Texto)=False entonces
Cancelar; {Error de conversión, la fecha es ilegal}
fin;
fin.