您的位置:首页 > 其它

函数可以返回一个值,变通一下,过程也行。

2008-10-26 20:22 405 查看
procedure CC(var a,b,c :Integer);
begin
c := a+b;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
a ,b,c :Integer;
begin
a :=5; b:=5; c :=0;
CC(a,b,c);
ShowMessage(IntToStr(c)); {结果为 10 }
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐