写了一个最简单的返回布尔值的函数，但提示说没有返回值，能帮我看看吗

Question

function Tform.bb(var a,b,c,d,e,f:integer):boolean;
begin
if (a+b>(c*d-e))and (a+b<(c*d-e-f))  then
begin
      result:=true;
end  else result:=false;
end;
程序的错误提示是function needs result type,请问这个程序我错在那里啊，我看不出来啊，他好象是说没有返回值，可是我不是在判断后写了吗？？？请大家帮我来看看

Answer 1

:)我也不知道，你改一下吧：function Tform.bb(var a,b,c,d,e,f:integer):boolean;
begin
result:=false;
if (a+b>(c*d-e))and (a+b<(c*d-e-f))  then
begin
      result:=true;
end  
end;

Answer 2

这样不就直接OK吗， 代码不精练
  Result := (a+b>(c*d-e))and (a+b<(c*d-e-f))

Answer 3

function Tform1.bb(var a,b,c,d,e,f:integer):boolean;
beginif (a+b>(c*d-e))and (a+b<(c*d-e-f))  then
begin
      result:=true;
end  else result:=false;
end;procedure TForm1.Button1Click(Sender: TObject);
var aa,bb,cc,dd,ee,ff:integer;begin
aa:=11;
bb:=22;
cc:=12;
dd:=1;
ee:=8;
ff:=-30;   if bb(aa,bb,cc,dd,ee,ff)  then   //他说这句话Type of expression must be BOOLEAN
   begin                             //Missing operator or semicolon这个也是上一句
   Memo1.Lines.add('true');
   end else Memo1.Lines.add('false');end;
这个是我的调用函数，请问这又是怎么回事呢

Answer 4

bb(aa,bb,cc,dd,ee,ff)你的函数名为bb,   参数也是bb  ???  你就舍不得用个其他的函数名？ 我没dephi,
不能帮你调试！！如果是这个问题的话，你犯的错误太初级了！！！

Answer 5

真够节省的！～～PFPF～～if Self.bb(aa, bb ....

Answer 6

hiflower(花) 说的对！出错在 Tform 里 跟函数没什么关系