{หน่วยหน้าต่างหลัก}
หน่วยหลัก;
อินเตอร์เฟซ
การใช้งาน
…{ละเว้นเนื้อหาอื่น}
ตาราง PROcedure1BirthdayGetText (ผู้ส่ง: TField;
ข้อความ var: String; DisplayText: บูลีน);
ขั้นตอน Table1BirthdaySetText (ผู้ส่ง: TField;
ข้อความ const: สตริง);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
……{เล็กน้อย}
การดำเนินการ
{รวมหน่วยที่กำหนดเอง}
ใช้ DBDateEditMaskTrans;
{$R *.DFM}
...{ละเว้นกระบวนการอื่น ๆ}
ขั้นตอน TForm1.FormActivate (ผู้ส่ง: TObject);
{ตั้งค่ารูปแบบการป้อนข้อมูลของช่องวันที่
สามารถวางไว้ในคำจำกัดความของฟิลด์ TField ได้ -
เริ่ม
Table1.FieldByName('วันเกิด').EditMask:=
'9999年99月99日;1;_';
จบ;
ขั้นตอน TForm1.Table1BirthdayGetText (ผู้ส่ง:
TField; var ข้อความ: สตริง; DisplayText: บูลีน);
เริ่ม
DateFieldGetText(ผู้ส่ง,ข้อความ);
จบ;
ขั้นตอน TForm1.Table1BirthdaySetText (ผู้ส่ง:
TFfield; const ข้อความ: สตริง);
เริ่ม
ถ้า DateFieldSetText(Sender,Text)=False แล้ว
ยกเลิก {การแปลงล้มเหลว วันที่ไม่ถูกต้อง}
จบ;
จบ.