Delphi 函数返回值的问题-CSDN论坛

Delphi 函数返回值的问题

Delphi > 语言基础/算法/系统设计

收藏回复

[问题点数：100分，结帖人linsoo]

⋅多线程读写变量的问题 ⋅hoho，CSDN被谁爆菊了？ ⋅Delphi 函数返回值的问题 更多帖子 关注私信空间博客 linsoo 等级 本版专家分：57 结帖率 99.39%

假设有个函数如下:

function test(x:string) : integer;

begin

   if x = 'aaa' then

      result := 1;

end;

我测试了下，一般好像都是返回0，但是在某的机器上出现了疑似返回随机负数的情况（无法确定）

所以来问下这个函数的返回值有没有可能是随机值？谢谢～

2011-05-18 09:29:25

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅大家以后还是不要发"呵呵"了！！！！！！！！！！！！！有图有真相 ⋅紧急求助！！！！！！！标题要长~~~~~~~~~~~~~~~~~ ⋅大姨妈又来了，还是一直处在血崩，没好！！！！！！ 更多帖子 关注私信空间博客 浩南_哥 等级 本版专家分：18821 勋章 红花 2011年8月 Delphi大版内专家分月排行榜第一 2011年5月 Delphi大版内专家分月排行榜第一 黄花 2011年9月 Delphi大版内专家分月排行榜第二 2011年7月 Delphi大版内专家分月排行榜第二 2011年6月 Delphi大版内专家分月排行榜第二 2011年4月 Delphi大版内专家分月排行榜第二: 你这个函数当x不等于"aaa"的时候没有设定返回值。
若还没有给 Result 或函数名赋值，程序就结束了，则函数的返回值没有被定义（undefined）。

2011-05-18 09:35:24

点赞只看TA 引用举报 #1得分 30

⋅多线程读写变量的问题 ⋅hoho，CSDN被谁爆菊了？ ⋅Delphi 函数返回值的问题 更多帖子 关注私信空间博客 linsoo 等级 本版专家分：57: 引用 1 楼 m617105 的回复:
你这个函数当x不等于"aaa"的时候没有设定返回值。
若还没有给 Result 或函数名赋值，程序就结束了，则函数的返回值没有被定义（undefined）。

没错，如果是undefined，那么值是有可能是随机负值吗？还是说一定是0？

2011-05-18 09:40:27

点赞只看TA 引用举报 #2得分 0

⋅FastReport GroupHeader 合计 ⋅delphi 调用DLL问题。 更多帖子 关注私信空间博客 cas005 等级 本版专家分：120: 是随机数的吧？没有赋返回值的函数就相当于过程来用，它的返回值是随机的。
“我测试了下，一般好像都是返回0，但是在某的机器上出现了疑似返回随机负数的情况（无法确定）
”
运行程序的时候，第一次调用函数得的返回值有可能是0吧，在进程没有被结束之前，你调用N次函数，得到的返回值还是第一次调用的0。只有程序初始化的时候，再得到另一个随机数。。。。

2011-05-18 10:17:42

点赞只看TA 引用举报 #3得分 0

⋅散分喽~~~ ⋅升级当爸爸了，散分 ⋅要过年了，给D版忙了一年的兄弟们发点响 :) 更多帖子 关注私信空间博客 hongqi162 等级 本版专家分：83323 勋章 进士 2007年总版技术专家分年内排行榜第九 铜牌 2007年7月总版技术专家分月排行榜第三 红花 2007年9月 Oracle大版内专家分月排行榜第一 2007年7月 Oracle大版内专家分月排行榜第一 2007年6月 Oracle大版内专家分月排行榜第一 2008年7月 Delphi大版内专家分月排行榜第一 2008年3月 Delphi大版内专家分月排行榜第一 2008年2月 Delphi大版内专家分月排行榜第一 2007年12月 Delphi大版内专家分月排行榜第一 2007年11月 Delphi大版内专家分月排行榜第一 2007年10月 Delphi大版内专家分月排行榜第一 2007年9月 Delphi大版内专家分月排行榜第一 2007年7月 Delphi大版内专家分月排行榜第一 2007年6月 Delphi大版内专家分月排行榜第一 2007年4月 Delphi大版内专家分月排行榜第一 2007年1月 Delphi大版内专家分月排行榜第一 黄花 2009年5月 Delphi大版内专家分月排行榜第二 2007年8月 Oracle大版内专家分月排行榜第二 2007年4月 Oracle大版内专家分月排行榜第二 2008年1月 Delphi大版内专家分月排行榜第二 2007年8月 Delphi大版内专家分月排行榜第二 2007年5月 Delphi大版内专家分月排行榜第二 2007年3月 Delphi大版内专家分月排行榜第二 2007年2月 Delphi大版内专家分月排行榜第二: 如果你对函数的返回值判断针对是不是等于1，也就是不等于1的时候不关心其值是多少，这样写是没有问题的，否则你的程序写的不够严谨

function test(x:string) : integer;
begin
   result := 0;
   if x = 'aaa' then
      result := 1;
end;

2011-05-18 10:21:42

点赞只看TA 引用举报 #4得分 20

⋅多线程读写变量的问题 ⋅hoho，CSDN被谁爆菊了？ ⋅Delphi 函数返回值的问题 更多帖子 关注私信空间博客 linsoo 等级 本版专家分：57: 引用 4 楼 hongqi162 的回复:
如果你对函数的返回值判断针对是不是等于1，也就是不等于1的时候不关心其值是多少，这样写是没有问题的，否则你的程序写的不够严谨

function test(x:string) : integer;
begin
   result := 0;
   if x = 'aaa' then
      result := 1;
end;

嗯，我就是想确认这样的不严谨是否会导致这个函数返回值是随机数....因为我自己测试，调用多少次这个函数都会返回0，也就是说返回值被自动初始化为0了。

2011-05-18 10:31:06

点赞只看TA 引用举报 #5得分 0

⋅求SQL语句 ⋅求高手 ⋅求TmxOutlookBar 1.54 更多帖子 关注私信空间博客 goodhj 等级 本版专家分：4874: 虽然你写得不够严谨，但是没有可能返回随机数的，因为你的函数返回结果是整数，没有值，DELPHI会自动赋予0的，你可以自己试验下就知道了，定义一个整型变量，不赋值，看这个变量是0还是随机值？所以你的这个函数如果不满足条件的话，返回值一定是0，这是确定的

2011-05-18 10:40:07

点赞只看TA 引用举报 #6得分 0

⋅多线程读写变量的问题 ⋅hoho，CSDN被谁爆菊了？ ⋅Delphi 函数返回值的问题 更多帖子 关注私信空间博客 linsoo 等级 本版专家分：57: 引用 6 楼 goodhj 的回复:
虽然你写得不够严谨，但是没有可能返回随机数的，因为你的函数返回结果是整数，没有值，DELPHI会自动赋予0的，你可以自己试验下就知道了，定义一个整型变量，不赋值，看这个变量是0还是随机值？所以你的这个函数如果不满足条件的话，返回值一定是0，这是确定的

经验证，确实是有个类似的函数返回了小于0的数导致出问题，修改了函数，初始化了下返回值就OK了，没再出问题。。。

2011-05-18 14:14:59

点赞只看TA 引用举报 #7得分 0

⋅真三层讨论 ⋅对于sqlservermethod 怎么样保存在客户端修改的数据？ ⋅怎么样用声卡采集到我说的声音 更多帖子 关注私信空间博客 moshao6 等级 本版专家分：967



function test(x:string) : integer;

begin

   result := false;

   if x = 'aaa' then

      result := 1;

end

2011-05-18 15:52:34

点赞只看TA 引用举报 #8得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 ouyanghaiwa2 等级 本版专家分：0: 我返回值是5898313

2011-05-18 16:27:49

点赞只看TA 引用举报 #9得分 0

⋅如何用MATLAB在地图上标记坐标点 ⋅如何在MFC中打开PPT 更多帖子 关注私信空间博客 chenxupro 等级 本版专家分：100: 因为条件不满足的时候没有给出返回值，那么返回值就是编译器产生的…

2011-05-18 16:31:03

点赞只看TA 引用举报 #10得分 10

1 2 3

收起

收藏回复

linsoo

等级：

关注私信 TA的帖子

Delphi程序返回值: 有位网友提出这样的问题：怎么给Delphi应用程序一个返回码，类似C的exit(-1) 经过尝试，得到结果：Delphi的处理方式与C/C++有些不同，Delphi中对针对main或是WinMain函数的参数以及返回值的处理是通过system.pas中...

delphi里function怎么返回多个值呢？: delphi里function怎么返回多个值呢？ Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiBase/html/delphi_20061206210840253.html 我自己写了一个function,要想同时返回三个double类型的数值，请问怎么...

Delphi中返回类型为string的函数的一个陷阱: 如果类的一个成员函数的返回值是string类型，需要注意一个问题其返回值可能是错误的例如函数的实现如下 function GetString( s: string ): string; begin Result := Result + s; end; 调用方式如下...

Delphi学习手记——pos 函数用法: pos函数功能：取出子串在父串中第一次出现的位置例如：pos(b,abcd);返回结果是2。

delphi function 与 procedure: 这二者最大的差别就是函数拥有返回值而过程没有，比如按钮的事件响应过程，这就是一个过程，因此它没有返回值；而一个简单的函数如求字符串长度的函数Length，它的函数原形为 function Length(S:string):Integer;...

delphi 字符串比较函数: delphi 字符串比较函数

Delphi 函数返回值的使用: 今晚一开始想把Edit框里的Text值转为float型，用的StrToFloat（），结果一直提示无法识别，后来才... 后来定义了一个函数 function JudgeDiscount(strEdit:string):boolean; begin if (strtofloat(strEdit)>=0) AND

delphi “div”、“mod”、“\”除法运算符的区别与使用方法: delphi中和除法相关的算术运算符有：div、mod和符号“\”，下面分别对他们的作用、操作数类型和返回值类型进行一下介绍： div：对2个整数进行除，取商，操作数需是integer类型，返回值也是integer。 \：2个数进行...

delphi Random（）函数: 该函数返回值也为整数，其范围为： 0 0 Random（）用来取得随机数，不过如果多运行几次会发现每次取得的随机数都是一样的。这是因为系统的随机种子没有改变，每次运行都是用同一个随机种子取的数。Ramd

Delphi中Inputbox 和Inputquery 函数的使用: inputbox的返回值是，你在输入框中输入的文字。而inputquery的返回值是，你是否点击了确定按钮。它的返回值是布尔型的。如果你在inputbox中一样也不输入，就点击取消的话，就会提示出错，而inputquery就不会。它们...

GetKeyState函数详解: 返回值为SHORT类型，即短整型。GetKeyState函数是用来获取指定的虚拟键码的按键的状态。得到的状态表示按键是按下了还是弹起的，还是状态切换（大小写状态、数字键盘锁状态）。一、判断按键是否被按下。通过高位来...

结构体变量作为函数的参数和返回值: 结构体变量作为函数的参数和返回值 2010-07-28 13:14 准备学习一下OpenCV，可是第一个知识点的语法就没有看懂： typedef struct CvPoint { int x; /* X坐标, 通常以0为基点 */ int y; /* y坐标, ...

cef 带返回值的js调用: c++调用js函数获得返回值，貌似cef提供的带返回值的函数都在render线程里面，一般我们调用想获取带返回值js方法都不在render线程，所以当我们想获取返回值的时候思路只有从当前的线程调用js方法，然后切换到render...

delphi 中实现当期日期减去若干小时的方法: 假定当期日期为：2011-08-01 15:00:00 now - 1 ：代表前一天的日期 返回值：2011-07-31 15:00:00 now - 1/3 ：代表8小时前 返回值：2011-08-01 07:00:00 now -

GetPixel 取像素点: 函数原型：；COLORREF GetPixel(HDC hdc, int nXPos, int nYPos) 参数： hdc：设备环境句柄。 nXPos：指定要检查的像素点的逻辑X轴坐标。 nYPos：指定要检查的像素点的逻辑Y轴坐标。 ...

DELPHI内存详解(6)－函数返回值: DELPHI内存详解(6)－函数返回值 2010-06-04 16:35 Delphi函数在返回值的处理上，对于32简单数据类型（不包括浮点数类型），是使用eax返回的，如Integer等；对于64位简单数据类型，是使用edx:eax返回的，...

Delphi函数返回值内存释放的问题: 问题：某一自定义函数返回值的类型为TStringList;如下: function FuncName(const VariantName:integer):TStringList; var RValue:TStringList; begin RValue:=Tstringlist.create; ...

delphi下unicodestring 编码为utf-8 RawByteString转换为ansistring: 在delphi2010下有个函数可以使用如果字符串大小不超过256个字符的，可以直接使用UTF8EncodeToShortString，返回值为utf-8编码的ansistring如果更多的字符内容，那么使用Utf8Encode函数，返回值为RawByteSt...

delphi 得到执行程序的当前所在完整路径: 在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“\”。 ShowMessage(ExtractFileDir(Application....

Delphi 从右开始查找的pos函数----RightPos: 它的作用是在字符串Str中查找字符串Substr，返回值是Substr在Str中第一次出现的位置，如果没有找到，返回值为0，与Pos函数不同的是，它是从Str右边开始搜寻，支持Widestring。 function RightPos(const ...

在Delphi中，字符串查找函数: Delphi提供的字符串函数里有一个Pos函数，它的定义是：function Pos(Substr: string; S: string): Integer; 它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0...

Frac函数: 描述在delphi中，Frac函数返回参数X的小数部分 X是一个实数表达式。返回值是X的小数部分；也就是说Frac(X) = X - Int(X). 例子 var R: Real; begin R := Frac(123....

Delphi7中的函数与过程（Function and Procedure）: 1.锁住空间的位置，可以选择Edit--->Lock component ,也可以在窗体...2.procedure没有返回值，Function有返回值； 3.为过程生明添加过程定义；Ctrl + Shift + C 快捷键；如在过程生命部分写一个过程 procedure my

BringWindowToTop(), SetForegroundWindow(), SetActiveWindow(): 1. SetActiveWindow() 原型： ...返回值：若函数调用成功，则返回原先活动窗口的句柄。若函数调用失败，则返回值为NULL 备注：SetActiveWindow函数激活一个窗口，但当应用程序处于后台时，将不激

Delphi中GetTickCount函数的使用: 【函数名】 GetTickCount 【库名】 kernel32 【说明】用于获取自windows启动以来经历的时间长度（毫秒）【返回值】 Long，以毫秒为单位的windows运行时间通常用来计算某个操作所使用的时间： Start:=...

函数Length()在Delphi2010与Delphi6下返回值不同: 昨天夜里，写一个小程序时，发现函数Length()在Delphi2010与Delphi6下返回值不同。Length('Delphi语言'):Delphi6 => 6Delphi2010 => 8。一看很明显是对汉字的长度计数是不一样的。原来Delphi2010是unicode编码的，一...

delphi如何获得一段代码执行消耗的时间: 最近客户一直在问，为什么调用我们接口速度会这么慢，于是我首先就需要验证到底耗时是多少，对于delphi语言用的不是很多，后来几经周折有如下方法：关键是用到一个库函数GetTickCount 【函数名】 GetTickCount ...

解析Delphi中的LoadLibrary,GetProcAddress,FreeLibrary: GetProcAddress(Hinstance,lpname)用来获取指定的动态连接库函数的地址 Hinstance为由LoadLibrary返回的模块句柄,lpname为文件名/函数名，返回值，成功返回动态连接库的地址，失败返回NULL， FreeLibrary（Hinstance...

delphi 发送消息控制滚动条: 1、Perform 函数 DBGrid1.Perform(WM_VSCROLL,SB_PAGEDOWN,0); //控制滚动条，向后翻页 DBGrid1.Perform(WM_VSCROLL,SB_PAGEUP,0); //控制滚动条，向前翻页 2、SendMessage 函数 SendMessage(DBGrid...

Delphi中获取Unix时间戳及注意事项: uses DateUtils;DateTimeToUnix(now)可以转换到unix时间，但是注意的是，它得到的时间比c语言中time()得到的时间大了8*60*60这是因为now是当前时区的时间，c语言中time()是按格林威治时间计算的，北京时间比格林威治...

相关热词 c# 为窗体增加资源文件 c#控制器怎么提示 c#常见异常 c#怎么写人机 c# xml转json c# 实例化名字 c#循环嵌套if语句 c# sql日期最小时间 c# sql 读取数据 c# 获取基类型