这个小程序段何处出错？

procedure s(x:integer;y:integer);
begin
y:=x*2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:Integer;begin
a:=0;
s(4,a);
label1.Caption:=intToStr(a);
end;//怎么显示0而非8？

解决方案 »

  1.   

    procedure s(x:integer;var y:integer);
      

  2.   

    同意楼上的；
    也可以
    function s(x:integer;y:integer);integer;程序里
    a:=s(4,a);
      

  3.   

    procedure s(x:integer;var y:integer);
      

  4.   

    a当然是0了，你什么时候给a赋值了，处了a：＝0
    多看看书吧
      

  5.   

    呵呵多谢各位老兄
    发好贴后才懂.
    另外我发觉DELPHI中没有超薄按钮?!(用了CORLDRAW你就看到了)
    也就是说按钮属性中无FLAT属性.
    还有就是为按钮添加图象时DELPHI不能接受ICO格式的图片
      

  6.   

    同意  tw_cshn(一无所有) 的