我经常使用以下代码：
- function GetNumber(Handle : THandle) : Integer;
- begin
- FLock.BeginRead;
- try
- if FMap.TryGetValue(Handle,Object) then
- raise EArgumentException.Create('Invalid handle');
- Result := Object.Number;
- finally
- FLock.EndRead;
- end;
- end;
不幸的是编译器给了我所有这些方法的警告：
- [DCC Warning] Unit.pas(1012): W1035 Return value of function 'GetNumber' might be undefined
我知道这个警告,但在这种情况下,我根本看不出任何理由.还是有一个我失踪的场景会导致一个未定义的结果值？我知道在try..except的情况下的警告,但是try..finally对我来说没有意义.
问题：
>有什么理由警告吗？
>如何摆脱它(将结果：= Object.Number行移出锁定不是一个选项,我想避免在每个函数的顶部写一个完全不必要的结果：= 0行)
谢谢！
解决方法
Is there any reason for the warning?
我看不到一个,但是因为加注而在那里
How can I get rid of it (moving the Result := Object.Name line out of
the lock is not an option,and I want
to avoid writing an completely
unncessary Result := 0 line at the top
of each function)
将raise语句移至自己的过程.
- function GetNumber(Handle : THandle) : Integer;
- procedure InvHandle;
- begin
- raise EArgumentException.Create('Invalid handle');
- end;
- begin
- FLock.BeginRead;
- try
- if FMap.TryGetValue(Handle,Object) then
- InvHandle;
- Result := Object.Number;
- finally
- FLock.EndRead;
- end;
- end;