procedure TTUnitDACCreateUser.Check60(Sender: TObject);
var
num:Integer;
t:string;
begin
t := TEdit(Sender).Text ;
num := StrToInt(t);
if (num > 60 and num < 0) then MessageDlg('你输入的数据无效', mtInformation,[mbOk], 0);
end;
报错:
[Error] UnitDACCreateUser.pas(125): Incompatible types
var
num:Integer;
t:string;
begin
t := TEdit(Sender).Text ;
num := StrToInt(t);
if (num > 60 and num < 0) then MessageDlg('你输入的数据无效', mtInformation,[mbOk], 0);
end;
报错:
[Error] UnitDACCreateUser.pas(125): Incompatible types
是要加括号的