if ((edit16.Text='6.5') or (edit16.Text='8') or (edit16.Text='10') or (edit16.Text='12')) and ((strtofloat(label54.Caption) >= -7) and (strtofloat(label54.Caption) <= 7)) then
begin
label58.Caption:='合格'
else
label58.Caption:='不合格';
endelse if ((edit16.Text='14') or (edit16.Text='16') or (edit16.Text='18') or (edit16.Text='20')) and ((strtofloat(label54.Caption) >= -7) and (strtofloat(label54.Caption) <= 7)) then
begin
label58.Caption:='合格'
else
label58.Caption:='不合格';
end
end;
不能执行啊~!初学,不太懂~
begin
label58.Caption:='合格'
else
label58.Caption:='不合格';
endelse if ((edit16.Text='14') or (edit16.Text='16') or (edit16.Text='18') or (edit16.Text='20')) and ((strtofloat(label54.Caption) >= -7) and (strtofloat(label54.Caption) <= 7)) then
begin
label58.Caption:='合格'
else
label58.Caption:='不合格';
end
end;
不能执行啊~!初学,不太懂~
解决方案 »
- 程序以前的通信用的是windows api 现在想改用第三方的sdk接口,接口名字和功能都和以前api不一样 如何改?
- ServerSocket非阻塞编程客户端超过20个后经常掉线?
- 能不能获得选项project options里的版本信息
- 新手上路,请各位大侠护行,帮我解决这个问题呀!
- 有人知道isnull的用法格式吗
- 谢谢
- delphi6保存控件写入dll时出错
- 当用FileStream拷贝2048字节数据时,怎样才能判断这些数据是否正确读取?
- 谁有delhi5?及资料要处理???
- Ado中怎样控制只生成一条INSERT语句
- Delphi如何编写大程序?
- OleContainer打开word后,如果屏蔽Ribbon菜单下的某些功能
if ((edit16.Text='6.5') or (edit16.Text='8') or (edit16.Text='10') or (edit16.Text='12')) and ((strtofloat(label54.Caption) >= -7) and (strtofloat(label54.Caption) <= 7) or
(edit16.Text='14') or (edit16.Text='16') or (edit16.Text='18') or (edit16.Text='20'))) then
begin
label58.Caption:='合格'
else
label58.Caption:='不合格';
end
if ((StrToInt(edit16.Text) in [8,10,12]) or (edit16.Text='6.5')) and ((StrToInt(label54.Caption) >= -7) and (strtoint(label54.Caption) <= 7)) then
label58.Caption:='达到要求'
else
label58.Caption:='合格';
Lz上次不是回复你了吗,,晕死了
label58.Caption:='合格'
else
label58.Caption:='不合格';
endif ((edit16.Text='6.5') or (edit16.Text='8') or (edit16.Text='10') or (edit16.Text='12')) and ((strtofloat(label54.Caption) >= -7) and (strtofloat(label54.Caption) <= 7)) thenbegin
label58.Caption:='合格';
end
else
begin
label58.Caption:='不合格';
end;
或者改成
if ((edit16.Text='6.5') or (edit16.Text='8') or (edit16.Text='10') or (edit16.Text='12')) and ((strtofloat(label54.Caption) >= -7) and (strtofloat(label54.Caption) <= 7)) then
label58.Caption:='合格'
else
label58.Caption:='不合格';
已经很祥细了,再祥细我就没办法了
begin
end
else
begin
end;