delphi7开发工具这么不好？？？

[sdudubing]

今天调试代码时遇到这么个恶心问题，感觉不能理解......

    function getclient(termid:string;moterid:string):TSimpleClient;
var
  i:integer;
begin
  {$IFDEF debuger}
  CodeSite.EnterMethod('getclient');
  {$ENDIF}
  if cici=true then
    exit
  else
  begin
    //mainform.LogAddText('getClientByUserid');
    with clientlist.LockList do
    begin
      //mainform.LogAddText('LockList');
      for i:=0 to count-1 do
        if ((TRIM(TSimpleClient(items[i]).moter)=TRIM(moterid)) and (TRIM(TSimpleClient(items[i]).term)=TRIM(termid))) then
        begin
          result:=TSimpleClient(items[i]);   //调试时resule得到的结果不是nil
          clientlist.UnlockList;
          //mainform.LogAddText('UnLockList');
          {$IFDEF debuger}
          CodeSite.SendMemoryAsHex('client',@Result,sizeof(TSimpleClient));
          CodeSite.ExitMethod('getclient');
          {$ENDIF}
          exit;
        end;
    end;
    clientlist.UnlockList;
    //mainform.LogAddText('UnLockList');
  end;

  result:=nil;
  {$IFDEF debuger}
  CodeSite.SendMsg('nil');
  CodeSite.ExitMethod('getclient');
  {$ENDIF}
end;

在clienttmp:=getclient(termid,moterid);调用上述函数时，内部getclient的result得到的不是nil，而结果clienttmp却是nil，不能理解......然后我重新定义了一个和clienttmp类型一样的变量stateclient，却能正常运行了....此处clienttmp是局部变量，内部其他地方没有引用，真有点搞不懂......

[爱蹄子的羊头]

function getclient(termid:string;moterid:string):TSimpleClient;

是 TSimpleClient


result

是 TSimpleClient(items[i]);

[haitao]

可能是优化模式的缘故？关闭优化试一试

[cjs5210]

将就用

[日立奔腾浪潮微软松下联想]

你函数退出前不都result:=nil;了吗，怎么不能理解呢？

[pathletboy]

#4是正确答案。

[sdudubing]

[Quote=引用 4 楼 的回复:]

你函数退出前不都result:=nil;了吗，怎么不能理解呢？
[/Quote]
您仔细看下代码吧，在内部有exit......

[sdudubing]

[Quote=引用 5 楼 的回复:]

#4是正确答案。
[/Quote]
同上

[sdudubing]

[Quote=引用 1 楼 的回复:]

function getclient(termid:string;moterid:string):TSimpleClient;

是 TSimpleClient


result

是 TSimpleClient(items[i]);
[/Quote]
没明白您说的什么意思？

[猴子先生大宝贝]

内容我没看，我看了标题进来的，我最受不了一些人自己技术不好把责任推在编译器上了。就是真有你说的问题，你技术好你换个思路做啊，再有本事，你写编译器去啊。天天就会抱怨，跟个怨妇似的。

[hsfzxjy]

顶楼上。。

[sdudubing]

[Quote=引用 9 楼 的回复:]

内容我没看，我看了标题进来的，我最受不了一些人自己技术不好把责任推在编译器上了。就是真有你说的问题，你技术好你换个思路做啊，再有本事，你写编译器去啊。天天就会抱怨，跟个怨妇似的。
[/Quote]
额，哥们牛逼。。。。。。结贴了