下在的result到底起什么作用:
function sum:integer;
var
i:integer;
begin
result:=1;
for i:=1 to 20 do
result:=result*i;
end;
function sum:integer;
var
i:integer;
begin
result:=1;
for i:=1 to 20 do
result:=result*i;
end;
解决方案 »
- UniDAC控件如何调用有输入输出参数并返回结果集的Oracle过程
- DELPHI线程池代码【uThreadPool.PAS】
- MonthCalendar控件中得“星期一”,如何显示为“一”???
- 怎样获得DBGRID当前活动记录的每列值?
- 怎样在“有类型文件”进行删除?
- 大家来谈谈企业开发三层分布式应用时,各工作组开发的远程数据模块RDM的合并问题
- 哪位朋友知道在delphi中怎么监视 对 U盘 进行的文件拷贝操作?
- 前辈指点COM/DCOM/MTS,注册成功,顺便散点分。
- 如何在上下文关联菜单(ContextMenu)中使用子菜单(Submenu)
- 把setup10个文件合并起来成exe的中文自解压:我用了Winrar汉化版 V2.8,有二个问题:1.解压缩文件的图标如何改成setup.exe文件图标?2.我口袋里只有RMB,没有美元,谁有注册码?^_^
- 请问各位高手关于窗体尺寸固定的问题
- ADO+SQL Server 连接协议问题?
function sum:integer;
var
i:integer;
result:integer;
begin
result:=1;
for i:=1 to 20 do
result:=result*i;
sum:=result ;
end;
sum :=result ;
这样才能够返回结果啊
呵呵,同意,不过在pascal 中应该
sum :=result ;
这样才能够返回结果啊
-------------------------------
是吗?