{unité de fenêtre principale}
unité principale ;
interface
utilise
…{omettre les autres contenus}
PProcédure Table1BirthdayGetText (Expéditeur : TField ;
var Texte : chaîne ; DisplayText : booléen);
procédure Table1BirthdaySetText(Expéditeur : TField ;
const Texte : chaîne );
privé
{Déclarations privées}
publique
{Déclarations publiques}
……{légèrement}
mise en œuvre
{Inclure les unités personnalisées}
utilise DBDateEditMaskTrans ;
{$R *.DFM}
...{Autres processus omis}
procédure TForm1.FormActivate(Expéditeur : TObject);
{Définir le masque de saisie d'un champ de date,
Peut être placé dans la définition du champ TField. }
commencer
Table1.FieldByName('Anniversaire').EditMask:=
'9999年99月99日;1;_';
fin;
procédure TForm1.Table1BirthdayGetText(Expéditeur :
TField ; var Texte : chaîne ; DisplayText : booléen);
commencer
DateFieldGetText(Expéditeur,Texte);
fin;
procédure TForm1.Table1BirthdaySetText(Expéditeur :
TField ; const Texte : Chaîne );
commencer
si DateFieldSetText(Sender,Text)=False alors
Abandonner ; {Échec de la conversion, la date est illégale}
fin;
fin.