Delphi 函数返回值的使用
来源:互联网 发布:程序员要学什么专业 编辑:程序博客网 时间:2024/06/02 11:58
今晚一开始想把Edit框里的Text值转为float型,用的StrToFloat(),结果一直提示无法识别,后来才想到是在纯文件里写的,没有加进来相关的类SysUtils。。。尼玛。。。
后来定义了一个函数
function JudgeDiscount(strEdit:string):boolean;beginif (strtofloat(strEdit)>=0) AND (strtofloat(strEdit)<=1.0) thenresult:=true;MessageBox(0,'It is ffff','',MB_OK);result:=false;end;
一开始是这么用的
if (JudgeDiscount(EditVIPdiscount.Text))then begin Messagebox(0,'折扣率只能是0~1.0之间的数值,比如0.7','',MB_OK); exit; end;
段落里的程序一直不执行,后来改成if (JudgeDiscount(EditVIPdiscount.Text)=false)then
试了一下,尼玛。。。一直当成C风格来用了。
学艺不精害死人啊
- Delphi 函数返回值的使用
- delphi activex 函数返回值
- Delphi函数返回值内存释放的问题
- 做一个返回数组的函数 DELPHI
- Delphi 函数返回值与寄存器
- Delphi的Format函数使用
- delphi locate函数的使用
- Delphi CompareValue函数的使用
- 使用Include函数的返回值
- 使用函数的多个返回值
- 函数的使用与返回值
- 返回指针的函数使用
- 第六章、使用函数返回值的函数
- DELPHI内存详解(6)-函数返回值
- 函数的返回值
- 函数的返回值
- 函数的返回值
- 函数的返回值
- 网络编程常用端口号
- 使用母板页实现一个BabyHousing网站
- 数学问题(二)螺旋矩阵
- Android开发入门Hello World
- IEEE802.9 综合数据声音网
- Delphi 函数返回值的使用
- snowstorm.js原代码
- vsftpd用户配置
- LINUX知识点
- 盖茨给职场青年的十句警言
- Service通过广播Broadcast更新Activity UI
- IEEE802.10 网络安全技术咨询组
- sql Statemente execute 返回值为false
- Struct和Class的区别