Question

Delphi一个Function小问题

function anniu(err:Integer):Integer;
begin
button3.Caption:=err;
end;

为什么这样不行？
————————————
如何使用case来进行赋值呢？

Answer 1

button3.Caption的值是string 类型的，你 的 err:是integer 类型。当然不行了
button3.Caption:=inttostr(err);
还有就是你用的是function ，是需要返回值的。你声明的返回值是integer型
但我看你的代码中没有。
function anniu(err:Integer):Integer;
begin
button3.Caption := IntToStr(err);
result:=某值;
end;
如果你不需要返回值的话，改成procedure 就行了。

Answer 2

function anniu(err:Integer):Integer;
begin
button3.Caption:=err;这个肯定不行，你是函数不是过程。在这里这个button3是没有申明的，肯定用不了。如果是一个过程就可以。
end;
下面这样就可行
procedur anniu(err:integer);
begin
button3.caption:=err;
end;
case：
如：
procedur anniu(err:integer);
begin
case err of
0:button1.caption:=err+1;
1:button2.caption:=err+2;
n:buttonn.caption:=err+n;
.........
end;
end;

Answer 3

button3.Caption 是string类型，也就是字符串，而err，从上面定义是Integer类型，即数字，当然不能直接赋值了，你做下转换就可以了：

procedure anniu(err:Integer):Integer;
begin
button3.Caption := IntToStr(err);
end;