高手帮忙看一下，代码为什么会报错？

function   createExcel:variant;                       //生成表格  
  var  
  sheet,xls:variant;  
   
  begin  
  xls   :=   createoleobject('Excel.Application');//创建OLE对象  
  xls.visible:=true;  
  xls.workbooks.add(-4167);   //添加工作表  
  xls.workbooks[1].sheets[1].name:='test';  
  xls.ActiveSheet.Cells[1,3].Value   :=   '宝来车友会服务收费单';  
  xls.ActiveSheet.Cells[3,1].Value   :=   '客户姓名';  
  sheet   :=   xls.workbooks[1].sheets['test'];  
  //xls.ActiveWorkBook.Saved   :=   True;  
  return   xls;  
  end; 问题点数：50、回复次数：5Top

1 楼code_study（天天编程）回复于 2006-05-03 22:52:07 得分 0

报错说return没有定义，为什么啊？需要什么头函数嘛？Top

2 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2006-05-03 22:54:28 得分 25

return   xls;  
  改为：  
  result   :=   xls;Top

3 楼yq3woaini（哈哈镜 选择好心情）回复于 2006-05-03 22:57:59 得分 25

应该是这样  
  result   :=   xls;Top

4 楼code_study（天天编程）回复于 2006-05-03 23:05:23 得分 0

哦，对了，谢谢！Top

5 楼chinaApostle（中国传道人）回复于 2006-05-04 20:37:48 得分 0

好，学到了Top

相关问题

• 帖主：code_study
• aiirii
• yq3woaini

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载