{Hauptfenstereinheit}
Einheit Haupt;
Schnittstelle
verwendet
…{Andere Inhalte weglassen}
PROcedure Table1BirthdayGetText(Sender: TField;
var Text: String;DisplayText: Boolean);
procedure Table1BirthdaySetText(Sender: TField;
const Text: String);
Privat
{Private Erklärungen}
öffentlich
{Öffentliche Erklärungen}
……{leicht}
Durchführung
{Benutzerdefinierte Einheiten einbeziehen}
verwendet DBDateEditMaskTrans;
{$R *.DFM}
...{Andere Prozesse weggelassen}
procedure TForm1.FormActivate(Sender: TObject);
{Eingabemaske eines Datumsfeldes festlegen,
Kann in die TField-Felddefinition eingefügt werden. }
beginnen
Table1.FieldByName('Geburtstag').EditMask:=
'9999年99月99日;1;_';
Ende;
Prozedur TForm1.Table1BirthdayGetText(Sender:
TField; var Text: String; DisplayText: Boolean);
beginnen
DateFieldGetText(Sender,Text);
Ende;
Prozedur TForm1.Table1BirthdaySetText(Sender:
TField; const Text: String);
beginnen
wenn DateFieldSetText(Sender,Text)=False dann
Abbruch; {Konvertierung fehlgeschlagen, Datum ist ungültig}
Ende;
Ende.