if Length(Text) = 6 then begin if StrToInt(Copy(Text,5,2))>12 then begin Text := ''; SetFocus; Exit; end; end; if Length(Text)= 4 then begin if StrToInt(Copy(Text,3,2)) > 12 then begin Text := ''; SetFocus; Exit; end else begin if StrToInt(Copy(Text,1,2)) >30 then Text := '19'+Text else Text := '20'+Text; end; 已完成部份要求，但是在onchange中没有完成 意思就是 当用户输入一个数字， 判 断 1.如果前两位是 19 那么判断第 5 位是否大于1 大于就不让用户输入， 如果不是 19 那么判断第 3 位 2. 上面条件满足时，则判断 判断最后两件是否大于12 大于不能输入
