{unidade da janela principal}
unidade Principal;
interface
usa
…{omitir outro conteúdo}
PRocedure Table1BirthdayGetText(Remetente: TField;
var Texto: String;DisplayText: Boolean);
procedimento Table1BirthdaySetText(Remetente: TField;
const Texto: String);
privado
{Declarações privadas}
público
{Declarações públicas}
……{um pouco}
implementação
{Incluir unidades personalizadas}
usa DBDateEditMaskTrans;
{$R *.DFM}
...{Outros processos omitidos}
procedimento TForm1.FormActivate(Sender: TObject);
{Defina a máscara de entrada de um campo de data,
Pode ser colocado na definição do campo TField. }
começar
Tabela1.FieldByName('Aniversário').EditMask:=
'9999年99月99日;1;_';
fim;
procedimento TForm1.Table1BirthdayGetText(Remetente:
TField; var Texto: String;
começar
DateFieldGetText(Remetente,Texto);
fim;
procedimento TForm1.Table1BirthdaySetText(Remetente:
TFfield; const Texto: String);
começar
se DateFieldSetText(Remetente,Texto)=Falso então
Abortar; {Falha na conversão, data é ilegal}
fim;
fim.