问个关于MaskEdit1问题

Question

在这个  maskedit控件，editmask设置改为 !9999/99;1;_  目的是显示年月份（前4位是年，后两位是月份），请问怎么做才能判断它已经写满数据（例如2006-  就是不完整的数据，要求在一个button下提交数据时候提示出来）和后面两个数字是想实现月份不能能超过12。请问如何写，谢谢！

Answer 1

加个判断：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to Length(MaskEdit1.Text) do
   if MaskEdit1.Text[i]=' ' then
     begin
       ShowMessage('数据不完整');
       Exit;
     end;
   if (MaskEdit1.Text[6]>'1')or
   (MaskEdit1.Text[6]='1')and(MaskEdit1.Text[7]>'2') then
     ShowMessage('月份超出范围')
   else ShowMessage('正常');
end;