{메인 창 단위}
유닛 메인;
인터페이스
용도
…{다른 내용은 생략}
PROcedure Table1BirthdayGetText(보내는 사람: TField;
var 텍스트: 문자열;DisplayText: 부울);
프로시저 Table1BirthdaySetText(발신자: TField;
const 텍스트: 문자열);
사적인
{비공개 선언}
공공의
{공개 선언}
……{약간}
구현
{맞춤 단위 포함}
DBDateEditMaskTrans를 사용합니다.
{$R *.DFM}
...{그 외 공정 생략}
절차 TForm1.FormActivate(Sender: TObject);
{날짜 필드의 입력 마스크를 설정하고,
TField 필드 정의에 배치할 수 있습니다. }
시작하다
Table1.FieldByName('생일').EditMask:=
'9999年99月99日;1;_';
끝;
프로시저 TForm1.Table1BirthdayGetText(보내는 사람:
TField; var 텍스트: 문자열: 부울;
시작하다
DateFieldGetText(발신자,텍스트);
끝;
프로시저 TForm1.Table1BirthdaySetText(보내는 사람:
TField; const 텍스트: 문자열);
시작하다
DateFieldSetText(Sender,Text)=False인 경우
중단합니다. {변환 실패, 날짜가 잘못되었습니다.}
끝;
끝.