16,748
社区成员
发帖
与我相关
我的任务
分享菜鸟问题编译出错
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
...全文
请发表友善的回复…
发表回复
wlbfeihu 2005-05-31
- 打赏
- 举报
if (num > 60） and （num < 0) then
是要加括号的
是要加括号的
