Delphi 函数返回值的使用

       今晚一开始想把Edit框里的Text值转为float型，用的StrToFloat（），结果一直提示无法识别，后来才想到是在纯文件里写的，没有加进来相关的类SysUtils。。。尼玛。。。

       后来定义了一个函数

function JudgeDiscount(strEdit:string):boolean;
begin
if (strtofloat(strEdit)>=0) AND (strtofloat(strEdit)<=1.0) then
	result:=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风格来用了。

  学艺不精害死人啊