{unit jendela utama}
satuan Utama;
antarmuka
kegunaan
…{hilangkan konten lainnya}
Prosedur Tabel1Ulang TahunGetTeks(Pengirim: TField;
var Teks: String;DisplayText: Boolean);
procedure Table1BirthdaySetText(Pengirim: TField;
const Teks: String);
pribadi
{Deklarasi pribadi}
publik
{Pernyataan publik}
……{agak}
pelaksanaan
{Sertakan unit khusus}
menggunakan DBDateEditMaskTrans;
{$R *.DFM}
...{Proses lain dihilangkan}
procedure TForm1.FormActivate(Pengirim: TObject);
{Setel topeng masukan bidang tanggal,
Dapat ditempatkan di definisi bidang TField. }
mulai
Tabel1.FieldByName('Ulang Tahun').EditMask:=
'9999年99月99日;1;_';
akhir;
prosedur TForm1.Table1BirthdayGetText(Pengirim:
TField; var Teks: String; Teks Tampilan: Boolean);
mulai
DateFieldGetText(Pengirim,Teks);
akhir;
prosedur TForm1.Table1BirthdaySetText(Pengirim:
TField; teks konstan: String);
mulai
jika DateFieldSetText(Sender,Text)=False maka
Batalkan; {Konversi gagal, tanggal ilegal}
akhir;
akhir.