浏览代码

* Result needs to be assigned when doing FindInFieldTable

Michaël Van Canneyt 3 月之前
父节点
当前提交
cc20d1fe06
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/classes/reader.inc

+ 1 - 1
rtl/objpas/classes/reader.inc

@@ -1956,7 +1956,7 @@ begin
   Result:=FindInFieldTable(Root);
   Result:=FindInFieldTable(Root);
   
   
   if (Result=nil) and assigned(LookupRoot) and (LookupRoot<>Root) then
   if (Result=nil) and assigned(LookupRoot) and (LookupRoot<>Root) then
-    FindInFieldTable(LookupRoot);
+    Result:=FindInFieldTable(LookupRoot);
 
 
   if (Result=nil) and assigned(OnFindComponentClassEx) then
   if (Result=nil) and assigned(OnFindComponentClassEx) then
     OnFindComponentClassEx(Self, AName, anUnitName, AClassName, Result);
     OnFindComponentClassEx(Self, AName, anUnitName, AClassName, Result);