| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/25 23:29:30 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | //（想在整数1--m+1间找一个(theArray)中没有的整数） Function findINTin1999(theArray: array of integer; m:integer): integer; var i, j, k: integer; begin i := 1; while i<(m+2) do begin k := 0; for j := low(theArray) to high(theArray) do if theArray[j]=i then k := 1; if k=1 then inc(i) else begin result := i; exit; end; end; end; [Warning] tygPubProc.pas(106): Return value of function 'findINTin1999' might be undefined ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/25 23:50:54 | ||||
| 1楼： | 意思是说函数返回值可能为定义. 另外你的代码会返回错误的结果,请自己检查错误,我就不给你说具体的错误了. ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/26 0:07:25 | ||||
| 2楼： | 我就是检查不出错误才上来问的，麻烦给具体说说吧 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/26 0:21:57 | ||||
| 3楼： | 抱歉是我看错了! ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/26 1:15:43 | ||||
| 4楼： | 函数本身没有问题 只是有返回值可能没有定义 因为可能在执行的过程中出错中断 或者执行完函数后你仍未赋值给函数的返回值 其实你在第1行加一句就可以了 Function findINTin1999(theArray: array of integer; m:integer): integer; var i, j, k: integer; begin Result := 0; i := 1; ........... ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
