简单的问题就是不会。。 ( 积分: 50 )

procedure TForm1.Button1Click(Sender: TObject);
var
tyear,tmonth,tday:integer;
begin
try
StrToInt(Edit1.Text);
except
Edit2.Text:='请输入正确的日期';
end;

tyear:=StrToInt(copy(Edit1.Text,1,4));
tmonth:=StrToInt(copy(edit1.Text,5,2));
tday:=StrToInt(copy(edit1.Text,7,2));
if Length(Edit1.Text)<>8 or tyear <1900 or tmonth<1 or tmoth>12 or tday<1 or tday>31 then
begin
Edit2.Text:='请输入正确的日期';
Edit1.SetFocus;
exit;
end;
end;
黑体的那部份总是不过不去，想了半天也不知道错在哪里？？/
[Error] Unit1.pas(51): Incompatible types

if (Length(Edit1.Text)<>8) or (tyear <1900) or (tmonth<1) or (tmoth>12) or (tday<1) or (tday>31) then

if ((Length(Edit1.Text)<>8) or (tyear <1900) or (tmonth<1) or (tmoth>12) or (tday<1) or (tday>31)) then

no testing.....

不会吧这么简单。。。。。。笨得要死了。。。